(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 13.1' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    140836,       4037]
NotebookOptionsPosition[    129988,       3869]
NotebookOutlinePosition[    130590,       3891]
CellTagsIndexPosition[    130547,       3888]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[{
 RowBox[{
  RowBox[{"ClearAll", "[", 
   RowBox[{"l", ",", "b", ",", "\[Mu]"}], "]"}], "\[IndentingNewLine]", 
  RowBox[{"(*", "benchmark", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"A", "=", "0.7"}], ";", 
  RowBox[{"\[Alpha]", "=", "0.6"}], ";", 
  RowBox[{"\[Rho]", "=", "0.04"}], ";", 
  RowBox[{"\[Gamma]", "=", 
   RowBox[{"-", "2"}]}], ";", 
  RowBox[{"\[Eta]", "=", "1.75"}], ";", 
  RowBox[{"\[Tau]w", "=", "0.15"}], ";", 
  RowBox[{"\[Tau]r", "=", "0.15"}], ";", 
  RowBox[{"\[Beta]", "=", "0.586"}], ";", 
  RowBox[{"\[Phi]", "=", 
   RowBox[{"-", "0.658"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   SubscriptBox["a", "o"], "=", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      FractionBox[
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "-", "\[Tau]r"}], ")"}], "*", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"A", "*", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"1", "-", "l"}], ")"}], "\[Alpha]"]}], "-", 
           RowBox[{"A", "*", "\[Alpha]", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"1", "-", "l"}], ")"}], "\[Alpha]"]}]}], ")"}]}], "-", 
        "\[Rho]"}], 
       RowBox[{"1", "-", "\[Gamma]"}]], "-", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "-", "\[Tau]r"}], ")"}], "*", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"A", "*", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"1", "-", "l"}], ")"}], "\[Alpha]"]}], "-", 
         RowBox[{"A", "*", "\[Alpha]", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"1", "-", "l"}], ")"}], "\[Alpha]"]}]}], ")"}]}], "-", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "-", "\[Tau]w"}], ")"}], "*", "A", "*", "\[Alpha]", "*", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1", "-", "l"}], ")"}], 
        RowBox[{"\[Alpha]", "-", "1"}]], "*", 
       RowBox[{"(", 
        RowBox[{"1", "-", "l", "-", 
         FractionBox["l", "\[Eta]"]}], ")"}]}], "-", 
      RowBox[{"\[Beta]", "*", "b"}], "-", 
      RowBox[{"\[Phi]", "*", "A", "*", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1", "-", "l"}], ")"}], "\[Alpha]"]}]}], ")"}], "/", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       FractionBox[
        RowBox[{
         RowBox[{"(", 
          RowBox[{"\[Alpha]", "-", "1"}], ")"}], "*", "\[Alpha]", "*", "A", 
         "*", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"1", "-", "l"}], ")"}], 
          RowBox[{"\[Alpha]", "-", "2"}]]}], 
        RowBox[{"\[Alpha]", "*", "A", "*", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"1", "-", "l"}], ")"}], 
          RowBox[{"\[Alpha]", "-", "1"}]]}]]}], "+", 
      RowBox[{
       FractionBox[
        RowBox[{"1", "-", 
         RowBox[{"\[Gamma]", "*", 
          RowBox[{"(", 
           RowBox[{"1", "+", "\[Eta]"}], ")"}]}]}], 
        RowBox[{"1", "-", "\[Gamma]"}]], "*", 
       FractionBox["1", "l"]}]}], ")"}]}]}], ";", 
  RowBox[{
   SubscriptBox["a", "oo"], "=", 
   RowBox[{
    RowBox[{
     RowBox[{"-", 
      RowBox[{"(", 
       RowBox[{"1", "-", "\[Tau]w"}], ")"}]}], "*", "\[Alpha]", "*", "A", "*", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "-", "l"}], ")"}], "\[Alpha]"], 
     RowBox[{"(", 
      RowBox[{"1", "-", 
       FractionBox["l", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "-", "l"}], ")"}], "*", "\[Eta]"}]]}], ")"}], "*", 
     "b"}], "-", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"1", "+", "b"}], ")"}], "*", "\[Beta]", "*", "b"}], "-", 
    RowBox[{"\[Phi]", "*", 
     RowBox[{"(", 
      RowBox[{"1", "+", "b"}], ")"}], "A", "*", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "-", "l"}], ")"}], "\[Alpha]"]}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"NSolve", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      SubscriptBox["a", "o"], "==", "0"}], ",", 
     RowBox[{
      SubscriptBox["a", "oo"], "==", "0"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"l", ",", "b"}], "}"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"a11", "=", 
   RowBox[{"D", "[", 
    RowBox[{
     SubscriptBox["a", "o"], ",", "l"}], "]"}]}], ";", 
  RowBox[{"a12", "=", 
   RowBox[{"D", "[", 
    RowBox[{
     SubscriptBox["a", "o"], ",", "b"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"a21", "=", 
   RowBox[{"D", "[", 
    RowBox[{
     SubscriptBox["a", "oo"], ",", "l"}], "]"}]}], ";", 
  RowBox[{"a22", "=", 
   RowBox[{"D", "[", 
    RowBox[{
     SubscriptBox["a", "oo"], ",", "b"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.850972917031534*^9, 3.8509729177969866`*^9}, {
   3.8509729685801616`*^9, 3.8509729770597873`*^9}, {3.851196261934334*^9, 
   3.8511962856836767`*^9}, {3.8512027902557135`*^9, 3.851202867725114*^9}, {
   3.8654830036319056`*^9, 3.865483059845659*^9}, {3.8654831170940886`*^9, 
   3.8654831990753593`*^9}, 3.865483255272468*^9, 3.8702382399663725`*^9, {
   3.8796758701375294`*^9, 3.8796758715401545`*^9}, {3.87967615617055*^9, 
   3.879676159185156*^9}, {3.8796762676433477`*^9, 3.8796762689228153`*^9}, {
   3.8806266586607037`*^9, 3.880626744389263*^9}, {3.880626775499971*^9, 
   3.8806270005799007`*^9}, 3.8806274836857452`*^9, {3.8806293306645584`*^9, 
   3.88062933472197*^9}},
 CellLabel->
  "In[196]:=",ExpressionUUID->"58be4907-e54a-4d08-8cf2-a8f17cb79a47"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"l", "\[Rule]", 
      RowBox[{"-", "47.36886774822461`"}]}], ",", 
     RowBox[{"b", "\[Rule]", 
      RowBox[{"-", "4.480598530195071`"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"l", "\[Rule]", "0.7528378119376511`"}], ",", 
     RowBox[{"b", "\[Rule]", "0.39501944835101704`"}]}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.8509683992023163`*^9, 3.8509729220917435`*^9, {3.8509729723001356`*^9, 
   3.8509729806990566`*^9}, {3.851196287468901*^9, 3.851196290629508*^9}, {
   3.851202808265972*^9, 3.851202870283224*^9}, 3.860097723017935*^9, 
   3.8654832875594916`*^9, 3.865483794475525*^9, 3.865483999875368*^9, 
   3.8702382447922373`*^9, 3.8740742590259233`*^9, 3.8742911417908363`*^9, 
   3.874979947706093*^9, 3.8789743535044518`*^9, {3.8796758755625167`*^9, 
   3.8796758981648808`*^9}, 3.8796761992837267`*^9, 3.8796762934625435`*^9, {
   3.8806267375041*^9, 3.880626745260247*^9}, 3.8806268601737595`*^9, 
   3.8806269829136295`*^9, 3.8806270262963657`*^9, 3.880627128598638*^9, 
   3.880627486641158*^9, 3.8806285713212223`*^9, {3.8806293247218013`*^9, 
   3.880629337776079*^9}, 3.880685287424781*^9, 3.8806856955165577`*^9, 
   3.8806861250449047`*^9, 3.880686250950029*^9, 3.8806864401157904`*^9},
 CellLabel->
  "Out[199]=",ExpressionUUID->"9eb70cc1-26a2-46fe-9fbd-a2498766c2a1"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"l", "=", "0.7528378119376511"}], ";", 
  RowBox[{"b", "=", "0.39501944835101704"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a11", "-", "\[Mu]"}], ")"}], "*", 
      RowBox[{"(", 
       RowBox[{"a22", "-", "\[Mu]"}], ")"}]}], "-", 
     RowBox[{"a12", "*", "a21"}]}], "==", "0"}], ",", "\[Mu]"}], 
  "]"}]}], "Input",
 CellChangeTimes->{3.880627197914203*^9},
 CellLabel->
  "In[202]:=",ExpressionUUID->"9bde6c62-3e5a-4974-9e6e-821c18ad664a"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"\[Mu]", "\[Rule]", 
     RowBox[{"-", "0.7647534263143023`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\[Mu]", "\[Rule]", "0.21808923455444681`"}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.880627016493549*^9, 3.8806270293830814`*^9}, 
   3.8806271315421977`*^9, 3.8806274894588375`*^9, {3.8806293271390343`*^9, 
   3.8806293407849617`*^9}, 3.880685289872154*^9, 3.88068569834407*^9, 
   3.8806861274274282`*^9, 3.880686253685543*^9, 3.8806864429292974`*^9},
 CellLabel->
  "Out[203]=",ExpressionUUID->"c07b1176-5327-4085-aece-7eca62739242"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"\[Mu]", "=", 
   RowBox[{"-", "0.7647534263143023"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   SubscriptBox["b", "o"], "=", "0.39501944835101704"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"bt", "=", 
   RowBox[{"b", "+", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       SubscriptBox["b", "o"], "-", "b"}], ")"}], "*", 
     RowBox[{"Exp", "[", 
      RowBox[{"\[Mu]", "*", "t"}], "]"}]}]}]}], ";", 
  RowBox[{
   SubscriptBox["b", "o"], "=", 
   RowBox[{"bt", "/.", 
    RowBox[{"t", "->", "0"}]}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"lt", "=", 
   RowBox[{"l", "+", 
    RowBox[{
     FractionBox["a12", 
      RowBox[{"\[Mu]", "-", "a11"}]], "*", 
     RowBox[{"(", 
      RowBox[{"bt", "-", "b"}], ")"}]}]}]}], ";", 
  RowBox[{
   SubscriptBox["l", "o"], "=", 
   RowBox[{"lt", "/.", 
    RowBox[{"t", "->", "0"}]}]}]}]}], "Input",
 CellChangeTimes->{{3.880627526408693*^9, 3.8806276177767243`*^9}, {
  3.880629313013627*^9, 3.8806293186289363`*^9}, {3.8806851190373836`*^9, 
  3.8806851209901056`*^9}},
 CellLabel->
  "In[204]:=",ExpressionUUID->"15fe62fc-70c8-4748-82da-d9dd0220d09a"],

Cell[BoxData["0.39501944835101704`"], "Output",
 CellChangeTimes->{3.8806276258243933`*^9, 3.88062934394913*^9, 
  3.880685293864395*^9, 3.880685460822486*^9, 3.8806857007788973`*^9, 
  3.8806861298889284`*^9, 3.880686256355236*^9, 3.880686445340043*^9},
 CellLabel->
  "Out[206]=",ExpressionUUID->"d5ab7e4d-f3f0-4161-bea3-f9c7af74fbc6"],

Cell[BoxData["0.7528378119376511`"], "Output",
 CellChangeTimes->{3.8806276258243933`*^9, 3.88062934394913*^9, 
  3.880685293864395*^9, 3.880685460822486*^9, 3.8806857007788973`*^9, 
  3.8806861298889284`*^9, 3.880686256355236*^9, 3.8806864453556585`*^9},
 CellLabel->
  "Out[207]=",ExpressionUUID->"fddb7fdc-97f4-4c17-8c47-be88ab58ea77"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  SubscriptBox["y", "o"], "=", 
  RowBox[{"A", "*", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "-", 
      SubscriptBox["l", "o"]}], ")"}], "\[Alpha]"]}]}], "\[IndentingNewLine]", 
 RowBox[{
  SubscriptBox["BbyY", "o"], "=", 
  FractionBox[
   SubscriptBox["b", "o"], 
   RowBox[{"A", "*", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "-", 
       SubscriptBox["l", "o"]}], ")"}], 
     "\[Alpha]"]}]]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   SubscriptBox["\[Delta]", "o"], "=", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      FractionBox[
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", "\[Tau]w"}], ")"}], "*", "\[Alpha]", "*", "A", "*", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "-", "l"}], ")"}], "\[Alpha]"]}], 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", "l"}], ")"}], "*", 
        RowBox[{"(", 
         RowBox[{"1", "+", "b"}], ")"}], "*", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           FractionBox[
            RowBox[{
             RowBox[{"(", 
              RowBox[{"1", "-", "\[Tau]w"}], ")"}], "*", "\[Alpha]", "*", "A",
              "*", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{"1", "-", "l"}], ")"}], 
              RowBox[{"\[Alpha]", "-", "1"}]]}], 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"1", "+", "b"}], ")"}], "*", 
             RowBox[{"(", 
              RowBox[{"1", "-", "l"}], ")"}]}]], "*", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1"}], "+", 
             RowBox[{"l", "*", 
              RowBox[{"(", 
               RowBox[{"1", "+", 
                FractionBox["1", "\[Eta]"]}], ")"}]}]}], ")"}]}], "-", 
          "\[Mu]"}], ")"}]}]], "*", 
      RowBox[{"(", 
       RowBox[{"1", "-", 
        FractionBox[
         SubscriptBox["l", "o"], "l"]}], ")"}]}], "+", "1"}], ")"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   SubscriptBox["\[Delta]", "o"], "=", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      FractionBox[
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", "\[Tau]w"}], ")"}], "*", "\[Alpha]", "*", "A", "*", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "-", "l"}], ")"}], "\[Alpha]"]}], 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", "l"}], ")"}], "*", 
        RowBox[{"(", 
         RowBox[{"1", "+", "b"}], ")"}], "*", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           FractionBox[
            RowBox[{
             RowBox[{"(", 
              RowBox[{"1", "-", "\[Tau]w"}], ")"}], "*", "\[Alpha]", "*", "A",
              "*", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{"1", "-", "l"}], ")"}], 
              RowBox[{"\[Alpha]", "-", "1"}]]}], 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"1", "+", "b"}], ")"}], "*", 
             RowBox[{"(", 
              RowBox[{"1", "-", "l"}], ")"}]}]], "*", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1"}], "+", 
             RowBox[{"l", "*", 
              RowBox[{"(", 
               RowBox[{"1", "+", 
                FractionBox["1", "\[Eta]"]}], ")"}]}]}], ")"}]}], "-", 
          "\[Mu]"}], ")"}]}]], "*", 
      RowBox[{"(", 
       RowBox[{"1", "-", 
        FractionBox[
         SubscriptBox["l", "o"], "l"]}], ")"}]}], "+", "1"}], ")"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  SubscriptBox["s\[Omega]", "o"], "=", 
  FractionBox[
   SubscriptBox["\[Delta]", "o"], 
   SubscriptBox["\[Delta]", "o"]]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   SubscriptBox["\[Theta]", "o"], "=", 
   FractionBox[
    RowBox[{
     RowBox[{"(", 
      RowBox[{"1", "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           FractionBox["1", 
            SubscriptBox["\[Delta]", "o"]], 
           RowBox[{"(", 
            RowBox[{"1", "-", 
             FractionBox["\[Eta]", 
              RowBox[{"l", "*", 
               RowBox[{"(", 
                RowBox[{"1", "+", "\[Eta]"}], ")"}]}]]}], ")"}]}], "-", "1"}],
          ")"}], "*", "l"}]}], ")"}], "*", 
     RowBox[{"(", 
      RowBox[{"1", "-", "\[Tau]w"}], ")"}], "*", 
     RowBox[{"(", 
      RowBox[{"\[Alpha]", "*", "A", "*", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1", "-", 
          SubscriptBox["l", "o"]}], ")"}], 
        RowBox[{"\[Alpha]", "-", "1"}]]}], ")"}]}], 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", "-", "\[Tau]r"}], ")"}], "*", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"A", "*", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"1", "-", 
            SubscriptBox["l", "o"]}], ")"}], "\[Alpha]"]}], "-", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "-", 
           SubscriptBox["l", "o"]}], ")"}], 
         RowBox[{"(", 
          RowBox[{"\[Alpha]", "*", "A", "*", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"1", "-", 
              SubscriptBox["l", "o"]}], ")"}], 
            RowBox[{"\[Alpha]", "-", "1"}]]}], ")"}]}]}], ")"}], "*", 
      RowBox[{"(", 
       RowBox[{"1", "+", 
        SubscriptBox["b", "o"]}], ")"}]}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", "-", "\[Tau]w"}], ")"}], "*", 
      RowBox[{"(", 
       RowBox[{"1", "-", 
        SubscriptBox["l", "o"]}], ")"}], "*", "\[Alpha]", "*", "A", "*", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1", "-", 
         SubscriptBox["l", "o"]}], ")"}], 
       RowBox[{"\[Alpha]", "-", "1"}]]}]}]]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  SubscriptBox["sy", "o"], "=", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"1", "-", 
     SubscriptBox["\[Theta]", "o"]}], ")"}], 
   SubscriptBox["s\[Omega]", "o"]}]}]}], "Input",
 CellChangeTimes->{{3.8806277243682213`*^9, 3.880628056447835*^9}, {
  3.8806280947030773`*^9, 3.8806281815213413`*^9}, {3.880685277891876*^9, 
  3.8806852831347437`*^9}, {3.8806858274023523`*^9, 3.8806858458713083`*^9}, {
  3.8806860347726707`*^9, 3.880686085384062*^9}, {3.8806861456523485`*^9, 
  3.8806861482454834`*^9}},
 CellLabel->
  "In[208]:=",ExpressionUUID->"5ad93d10-72a7-4396-a6bf-6f66e7c32deb"],

Cell[BoxData["0.3026127754614293`"], "Output",
 CellChangeTimes->{
  3.8806281914710684`*^9, 3.880629350745759*^9, 3.880685297493963*^9, {
   3.880685458103445*^9, 3.880685463164691*^9}, 3.880685703189678*^9, {
   3.8806860630303698`*^9, 3.8806860881020913`*^9}, {3.8806861328377657`*^9, 
   3.8806861508854065`*^9}, 3.8806862595707874`*^9, 3.8806864483021*^9},
 CellLabel->
  "Out[208]=",ExpressionUUID->"86015020-7ef7-4e27-942b-1ecb1ff344ef"],

Cell[BoxData["1.3053627618618693`"], "Output",
 CellChangeTimes->{
  3.8806281914710684`*^9, 3.880629350745759*^9, 3.880685297493963*^9, {
   3.880685458103445*^9, 3.880685463164691*^9}, 3.880685703189678*^9, {
   3.8806860630303698`*^9, 3.8806860881020913`*^9}, {3.8806861328377657`*^9, 
   3.8806861508854065`*^9}, 3.8806862595707874`*^9, 3.8806864483177214`*^9},
 CellLabel->
  "Out[209]=",ExpressionUUID->"2e1d24e1-81f4-4b15-a065-59b86ffd6a24"],

Cell[BoxData["1.`"], "Output",
 CellChangeTimes->{
  3.8806281914710684`*^9, 3.880629350745759*^9, 3.880685297493963*^9, {
   3.880685458103445*^9, 3.880685463164691*^9}, 3.880685703189678*^9, {
   3.8806860630303698`*^9, 3.8806860881020913`*^9}, {3.8806861328377657`*^9, 
   3.8806861508854065`*^9}, 3.8806862595707874`*^9, 3.8806864483177214`*^9},
 CellLabel->
  "Out[212]=",ExpressionUUID->"2cc2c4e4-6d13-4739-ac54-43c44ece08d7"],

Cell[BoxData["0.23770152954137014`"], "Output",
 CellChangeTimes->{
  3.8806281914710684`*^9, 3.880629350745759*^9, 3.880685297493963*^9, {
   3.880685458103445*^9, 3.880685463164691*^9}, 3.880685703189678*^9, {
   3.8806860630303698`*^9, 3.8806860881020913`*^9}, {3.8806861328377657`*^9, 
   3.8806861508854065`*^9}, 3.8806862595707874`*^9, 3.8806864483177214`*^9},
 CellLabel->
  "Out[214]=",ExpressionUUID->"41813370-1476-4efb-9767-8ee00efa31aa"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{"debt", "-", "to", "-", 
    RowBox[{"gdp", " ", "ratio"}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"BbyY", "=", 
    FractionBox["b", 
     RowBox[{"A", "*", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1", "-", "l"}], ")"}], "\[Alpha]"]}]]}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     SubscriptBox["\[Delta]", "o"], "=", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        FractionBox[
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1", "-", "\[Tau]w"}], ")"}], "*", "\[Alpha]", "*", "A", 
          "*", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"1", "-", "l"}], ")"}], "\[Alpha]"]}], 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1", "-", "l"}], ")"}], "*", 
          RowBox[{"(", 
           RowBox[{"1", "+", "b"}], ")"}], "*", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             FractionBox[
              RowBox[{
               RowBox[{"(", 
                RowBox[{"1", "-", "\[Tau]w"}], ")"}], "*", "\[Alpha]", "*", 
               "A", "*", 
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{"1", "-", "l"}], ")"}], 
                RowBox[{"\[Alpha]", "-", "1"}]]}], 
              RowBox[{
               RowBox[{"(", 
                RowBox[{"1", "+", "b"}], ")"}], "*", 
               RowBox[{"(", 
                RowBox[{"1", "-", "l"}], ")"}]}]], "*", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", 
               RowBox[{"l", "*", 
                RowBox[{"(", 
                 RowBox[{"1", "+", 
                  FractionBox["1", "\[Eta]"]}], ")"}]}]}], ")"}]}], "-", 
            "\[Mu]"}], ")"}]}]], "*", 
        RowBox[{"(", 
         RowBox[{"1", "-", 
          FractionBox[
           SubscriptBox["l", "o"], "l"]}], ")"}]}], "+", "1"}], ")"}]}], 
    ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"\[Delta]", "=", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        FractionBox[
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1", "-", "\[Tau]w"}], ")"}], "*", "\[Alpha]", "*", "A", 
          "*", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"1", "-", "l"}], ")"}], "\[Alpha]"]}], 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1", "-", "l"}], ")"}], "*", 
          RowBox[{"(", 
           RowBox[{"1", "+", "b"}], ")"}], "*", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             FractionBox[
              RowBox[{
               RowBox[{"(", 
                RowBox[{"1", "-", "\[Tau]w"}], ")"}], "*", "\[Alpha]", "*", 
               "A", "*", 
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{"1", "-", "l"}], ")"}], 
                RowBox[{"\[Alpha]", "-", "1"}]]}], 
              RowBox[{
               RowBox[{"(", 
                RowBox[{"1", "+", "b"}], ")"}], "*", 
               RowBox[{"(", 
                RowBox[{"1", "-", "l"}], ")"}]}]], "*", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", 
               RowBox[{"l", "*", 
                RowBox[{"(", 
                 RowBox[{"1", "+", 
                  FractionBox["1", "\[Eta]"]}], ")"}]}]}], ")"}]}], "-", 
            "\[Mu]"}], ")"}]}]], "*", 
        RowBox[{"(", 
         RowBox[{"1", "-", 
          FractionBox["l", "l"]}], ")"}]}], "+", "1"}], ")"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{"wealth", " ", "inequality"}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{"s\[Omega]", "=", 
    RowBox[{
     FractionBox["\[Delta]", 
      SubscriptBox["\[Delta]", "o"]], "*", "1"}]}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"\[Theta]", "=", 
     FractionBox[
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             FractionBox["1", "\[Delta]"], 
             RowBox[{"(", 
              RowBox[{"1", "-", 
               FractionBox["\[Eta]", 
                RowBox[{"l", "*", 
                 RowBox[{"(", 
                  RowBox[{"1", "+", "\[Eta]"}], ")"}]}]]}], ")"}]}], "-", 
            "1"}], ")"}], "*", "l"}]}], ")"}], "*", 
       RowBox[{"(", 
        RowBox[{"1", "-", "\[Tau]w"}], ")"}], "*", 
       RowBox[{"(", 
        RowBox[{"\[Alpha]", "*", "A", "*", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"1", "-", "l"}], ")"}], 
          RowBox[{"\[Alpha]", "-", "1"}]]}], ")"}]}], 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", "\[Tau]r"}], ")"}], "*", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"A", "*", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"1", "-", "l"}], ")"}], "\[Alpha]"]}], "-", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "l"}], ")"}], 
           RowBox[{"(", 
            RowBox[{"\[Alpha]", "*", "A", "*", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{"1", "-", "l"}], ")"}], 
              RowBox[{"\[Alpha]", "-", "1"}]]}], ")"}]}]}], ")"}], "*", 
        RowBox[{"(", 
         RowBox[{"1", "+", "b"}], ")"}]}], "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", "\[Tau]w"}], ")"}], "*", 
        RowBox[{"(", 
         RowBox[{"1", "-", "l"}], ")"}], "*", "\[Alpha]", "*", "A", "*", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "-", "l"}], ")"}], 
         RowBox[{"\[Alpha]", "-", "1"}]]}]}]]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{"income", " ", "inequality"}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{"sy", "=", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"1", "-", "\[Theta]"}], ")"}], "s\[Omega]"}]}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{"growth", " ", "rate"}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{"\[Psi]", "=", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"A", "*", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"1", "-", "l"}], ")"}], "\[Alpha]"]}], "-", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "-", "l"}], ")"}], "*", "\[Alpha]", "*", "A", "*", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"1", "-", "l"}], ")"}], 
          RowBox[{"\[Alpha]", "-", "1"}]]}]}], ")"}], "*", 
      RowBox[{"(", 
       RowBox[{"1", "-", "\[Tau]r"}], ")"}]}], "+", 
     RowBox[{"\[Beta]", "*", "b"}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", "-", "\[Tau]w"}], ")"}], "*", "\[Alpha]", "*", "A", "*", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1", "-", "l"}], ")"}], 
       RowBox[{"\[Alpha]", "-", "1"}]], "*", 
      RowBox[{"(", 
       RowBox[{"1", "-", "l", "-", 
        FractionBox["l", "\[Eta]"]}], ")"}]}], "+", 
     RowBox[{"\[Phi]", "*", "A", "*", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1", "-", "l"}], ")"}], "\[Alpha]"]}]}]}]}]}]], "Input",
 CellChangeTimes->{{3.8806283076534433`*^9, 3.8806284355666976`*^9}, {
   3.8806284694818344`*^9, 3.880628535206954*^9}, {3.880685378034338*^9, 
   3.8806854242608137`*^9}, 3.880686315284131*^9},
 CellLabel->
  "In[215]:=",ExpressionUUID->"df3d05a8-7cc8-4a87-a1c5-484a23884d1a"],

Cell[BoxData["1.3053627618618693`"], "Output",
 CellChangeTimes->{{3.8806284255257673`*^9, 3.88062844071144*^9}, 
   3.880628538616856*^9, 3.8806293554506006`*^9, 3.880685435774836*^9, 
   3.880685467987496*^9, 3.8806857068071594`*^9, 3.8806862813473034`*^9, 
   3.880686325827038*^9, 3.8806864571833687`*^9},
 CellLabel->
  "Out[215]=",ExpressionUUID->"0c528125-44ad-4ce3-ad84-0048b2b278d8"],

Cell[BoxData["1.`"], "Output",
 CellChangeTimes->{{3.8806284255257673`*^9, 3.88062844071144*^9}, 
   3.880628538616856*^9, 3.8806293554506006`*^9, 3.880685435774836*^9, 
   3.880685467987496*^9, 3.8806857068071594`*^9, 3.8806862813473034`*^9, 
   3.880686325827038*^9, 3.880686457200605*^9},
 CellLabel->
  "Out[218]=",ExpressionUUID->"4a567956-781a-4adb-8e2a-d37d216d0cc0"],

Cell[BoxData["0.23770152954137014`"], "Output",
 CellChangeTimes->{{3.8806284255257673`*^9, 3.88062844071144*^9}, 
   3.880628538616856*^9, 3.8806293554506006`*^9, 3.880685435774836*^9, 
   3.880685467987496*^9, 3.8806857068071594`*^9, 3.8806862813473034`*^9, 
   3.880686325827038*^9, 3.8806864572111197`*^9},
 CellLabel->
  "Out[220]=",ExpressionUUID->"355326c2-eedd-4ce0-b683-f60d8d8c06ad"],

Cell[BoxData["0.020962781218961946`"], "Output",
 CellChangeTimes->{{3.8806284255257673`*^9, 3.88062844071144*^9}, 
   3.880628538616856*^9, 3.8806293554506006`*^9, 3.880685435774836*^9, 
   3.880685467987496*^9, 3.8806857068071594`*^9, 3.8806862813473034`*^9, 
   3.880686325827038*^9, 3.8806864572111197`*^9},
 CellLabel->
  "Out[221]=",ExpressionUUID->"2138adcc-a6a0-486e-a2c5-2395436cf754"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"ClearAll", "[", 
  RowBox[{"l", ",", "b", ",", "\[Mu]"}], "]"}]], "Input",
 CellChangeTimes->{{3.88062891926225*^9, 3.88062892226791*^9}},
 CellLabel->
  "In[222]:=",ExpressionUUID->"8479ba9a-9ab0-4600-af81-ebd42746ab0b"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "increasing", " ", "\[Beta]", " ", "from", " ", "0.586", " ", "to", " ", 
    "0.636"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"A", "=", "0.7"}], ";", 
    RowBox[{"\[Alpha]", "=", "0.6"}], ";", 
    RowBox[{"\[Rho]", "=", "0.04"}], ";", 
    RowBox[{"\[Gamma]", "=", 
     RowBox[{"-", "2"}]}], ";", 
    RowBox[{"\[Eta]", "=", "1.75"}], ";", 
    RowBox[{"\[Tau]w", "=", "0.15"}], ";", 
    RowBox[{"\[Tau]r", "=", "0.15"}], ";", 
    RowBox[{"\[Beta]", "=", "0.636"}], ";", 
    RowBox[{"\[Phi]", "=", 
     RowBox[{"-", "0.658"}]}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     SubscriptBox["a", "o"], "=", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        FractionBox[
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "\[Tau]r"}], ")"}], "*", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"A", "*", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{"1", "-", "l"}], ")"}], "\[Alpha]"]}], "-", 
             RowBox[{"A", "*", "\[Alpha]", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{"1", "-", "l"}], ")"}], "\[Alpha]"]}]}], ")"}]}], "-",
           "\[Rho]"}], 
         RowBox[{"1", "-", "\[Gamma]"}]], "-", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "-", "\[Tau]r"}], ")"}], "*", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"A", "*", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"1", "-", "l"}], ")"}], "\[Alpha]"]}], "-", 
           RowBox[{"A", "*", "\[Alpha]", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"1", "-", "l"}], ")"}], "\[Alpha]"]}]}], ")"}]}], "-", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "-", "\[Tau]w"}], ")"}], "*", "A", "*", "\[Alpha]", 
         "*", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"1", "-", "l"}], ")"}], 
          RowBox[{"\[Alpha]", "-", "1"}]], "*", 
         RowBox[{"(", 
          RowBox[{"1", "-", "l", "-", 
           FractionBox["l", "\[Eta]"]}], ")"}]}], "-", 
        RowBox[{"\[Beta]", "*", "b"}], "-", 
        RowBox[{"\[Phi]", "*", "A", "*", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"1", "-", "l"}], ")"}], "\[Alpha]"]}]}], ")"}], "/", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", 
         FractionBox[
          RowBox[{
           RowBox[{"(", 
            RowBox[{"\[Alpha]", "-", "1"}], ")"}], "*", "\[Alpha]", "*", "A", 
           "*", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"1", "-", "l"}], ")"}], 
            RowBox[{"\[Alpha]", "-", "2"}]]}], 
          RowBox[{"\[Alpha]", "*", "A", "*", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"1", "-", "l"}], ")"}], 
            RowBox[{"\[Alpha]", "-", "1"}]]}]]}], "+", 
        RowBox[{
         FractionBox[
          RowBox[{"1", "-", 
           RowBox[{"\[Gamma]", "*", 
            RowBox[{"(", 
             RowBox[{"1", "+", "\[Eta]"}], ")"}]}]}], 
          RowBox[{"1", "-", "\[Gamma]"}]], "*", 
         FractionBox["1", "l"]}]}], ")"}]}]}], ";", 
    RowBox[{
     SubscriptBox["a", "oo"], "=", 
     RowBox[{
      RowBox[{
       RowBox[{"-", 
        RowBox[{"(", 
         RowBox[{"1", "-", "\[Tau]w"}], ")"}]}], "*", "\[Alpha]", "*", "A", 
       "*", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1", "-", "l"}], ")"}], "\[Alpha]"], 
       RowBox[{"(", 
        RowBox[{"1", "-", 
         FractionBox["l", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "l"}], ")"}], "*", "\[Eta]"}]]}], ")"}], "*", 
       "b"}], "-", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "+", "b"}], ")"}], "*", "\[Beta]", "*", "b"}], "-", 
      RowBox[{"\[Phi]", "*", 
       RowBox[{"(", 
        RowBox[{"1", "+", "b"}], ")"}], "A", "*", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1", "-", "l"}], ")"}], "\[Alpha]"]}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"NSolve", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        SubscriptBox["a", "o"], "==", "0"}], ",", 
       RowBox[{
        SubscriptBox["a", "oo"], "==", "0"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"l", ",", "b"}], "}"}]}], "]"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"a11", "=", 
     RowBox[{"D", "[", 
      RowBox[{
       SubscriptBox["a", "o"], ",", "l"}], "]"}]}], ";", 
    RowBox[{"a12", "=", 
     RowBox[{"D", "[", 
      RowBox[{
       SubscriptBox["a", "o"], ",", "b"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"a21", "=", 
     RowBox[{"D", "[", 
      RowBox[{
       SubscriptBox["a", "oo"], ",", "l"}], "]"}]}], ";", 
    RowBox[{"a22", "=", 
     RowBox[{"D", "[", 
      RowBox[{
       SubscriptBox["a", "oo"], ",", "b"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]"}]}]], "Input",
 CellChangeTimes->{
  3.85096842137992*^9, {3.850972989783259*^9, 3.850972990423791*^9}, {
   3.851202880778*^9, 3.851202909187764*^9}, 3.8600976785696697`*^9, {
   3.865483311973012*^9, 3.8654833327082796`*^9}, 3.8702382504492674`*^9, {
   3.878974165512331*^9, 3.878974203551099*^9}, {3.87967589309874*^9, 
   3.879675895482401*^9}, {3.8796761633531237`*^9, 3.8796761646581345`*^9}, {
   3.8796762724654274`*^9, 3.8796762730660706`*^9}, 3.8806286004633617`*^9},
 CellLabel->
  "In[223]:=",ExpressionUUID->"d99c22f7-5e29-402e-acfe-8c226318913c"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"l", "\[Rule]", 
      RowBox[{"-", "54.3994986929232`"}]}], ",", 
     RowBox[{"b", "\[Rule]", 
      RowBox[{"-", "4.4861613086008205`"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"l", "\[Rule]", "0.7508492138100215`"}], ",", 
     RowBox[{"b", "\[Rule]", "0.3613203145038168`"}]}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.850968425971099*^9, 3.850972995213623*^9, 
  3.851196295346171*^9, 3.8512029142666283`*^9, 3.860097726411676*^9, 
  3.8654833358492093`*^9, 3.870238254148592*^9, 3.8740742638322344`*^9, 
  3.874979964513708*^9, 3.878974356200575*^9, 3.879675904585342*^9, 
  3.879676203659325*^9, 3.879676297606747*^9, 3.880628926176442*^9, 
  3.880629022991875*^9, 3.8806294477603197`*^9, 3.8806295922331886`*^9, 
  3.8806856215110703`*^9, 3.8806857117887516`*^9, 3.880686473411314*^9},
 CellLabel->
  "Out[225]=",ExpressionUUID->"70747529-1098-484c-9de7-032cc0600aa2"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"l", "=", "0.7508492138100215"}], ";", 
  RowBox[{"b", "=", "0.3613203145038168"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a11", "-", "\[Mu]"}], ")"}], "*", 
      RowBox[{"(", 
       RowBox[{"a22", "-", "\[Mu]"}], ")"}]}], "-", 
     RowBox[{"a12", "*", "a21"}]}], "==", "0"}], ",", "\[Mu]"}], 
  "]"}]}], "Input",
 CellChangeTimes->{{3.880628904584948*^9, 3.8806289081181116`*^9}},
 CellLabel->
  "In[228]:=",ExpressionUUID->"9b8f68b6-a6e9-4f95-873f-63f4d14e9c88"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"\[Mu]", "\[Rule]", 
     RowBox[{"-", "0.817034127700984`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\[Mu]", "\[Rule]", "0.2209767235425395`"}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.8806289112791996`*^9, 3.8806289290354176`*^9}, 
   3.8806290256940646`*^9, 3.880629449963027*^9, 3.880629595109912*^9, 
   3.880685624955023*^9, 3.880685714363871*^9, 3.880686476199009*^9},
 CellLabel->
  "Out[229]=",ExpressionUUID->"9b242154-b0a4-48de-b2b4-b5569288c908"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"\[Mu]", "=", 
   RowBox[{"-", "0.817034127700984"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   SubscriptBox["b", "o"], "=", "0.39501944835101704"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"bt", "=", 
   RowBox[{"b", "+", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       SubscriptBox["b", "o"], "-", "b"}], ")"}], "*", 
     RowBox[{"Exp", "[", 
      RowBox[{"\[Mu]", "*", "t"}], "]"}]}]}]}], ";", 
  RowBox[{
   SubscriptBox["b", "o"], "=", 
   RowBox[{"bt", "/.", 
    RowBox[{"t", "->", "0"}]}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"lt", "=", 
   RowBox[{"l", "+", 
    RowBox[{
     FractionBox["a12", 
      RowBox[{"\[Mu]", "-", "a11"}]], "*", 
     RowBox[{"(", 
      RowBox[{"bt", "-", "b"}], ")"}]}]}]}], ";", 
  RowBox[{
   SubscriptBox["l", "o"], "=", 
   RowBox[{"lt", "/.", 
    RowBox[{"t", "->", "0"}]}]}]}]}], "Input",
 CellChangeTimes->{{3.8806290961278877`*^9, 3.880629098096489*^9}, {
   3.880629284051255*^9, 3.8806292978871565`*^9}, 3.880629522241357*^9, {
   3.88062960453668*^9, 3.8806296061728287`*^9}, {3.880685129078061*^9, 
   3.880685133905102*^9}},
 CellLabel->
  "In[230]:=",ExpressionUUID->"b09e4bd4-b7cf-42c3-9103-db61853d7ac7"],

Cell[BoxData["0.39501944835101704`"], "Output",
 CellChangeTimes->{3.8806291210839057`*^9, 3.880629452694624*^9, 
  3.8806296086177216`*^9, 3.88068562899771*^9, 3.8806857177440257`*^9, 
  3.880686479295721*^9},
 CellLabel->
  "Out[232]=",ExpressionUUID->"0baf1ecd-2dd0-4f49-bdf1-8a3f998699b1"],

Cell[BoxData["0.7556000147166588`"], "Output",
 CellChangeTimes->{3.8806291210839057`*^9, 3.880629452694624*^9, 
  3.8806296086177216`*^9, 3.88068562899771*^9, 3.8806857177440257`*^9, 
  3.880686479295721*^9},
 CellLabel->
  "Out[233]=",ExpressionUUID->"a7ff839b-aa74-4618-a751-0e02c24b3c3b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  SubscriptBox["y", "o"], "=", 
  RowBox[{"A", "*", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "-", 
      SubscriptBox["l", "o"]}], ")"}], "\[Alpha]"]}]}], "\[IndentingNewLine]", 
 RowBox[{
  SubscriptBox["BbyY", "o"], "=", 
  FractionBox[
   SubscriptBox["b", "o"], 
   RowBox[{"A", "*", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "-", 
       SubscriptBox["l", "o"]}], ")"}], 
     "\[Alpha]"]}]]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   SubscriptBox["\[Delta]", "o"], "=", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      FractionBox[
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", "\[Tau]w"}], ")"}], "*", "\[Alpha]", "*", "A", "*", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "-", "l"}], ")"}], "\[Alpha]"]}], 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", "l"}], ")"}], "*", 
        RowBox[{"(", 
         RowBox[{"1", "+", "b"}], ")"}], "*", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           FractionBox[
            RowBox[{
             RowBox[{"(", 
              RowBox[{"1", "-", "\[Tau]w"}], ")"}], "*", "\[Alpha]", "*", "A",
              "*", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{"1", "-", "l"}], ")"}], 
              RowBox[{"\[Alpha]", "-", "1"}]]}], 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"1", "+", "b"}], ")"}], "*", 
             RowBox[{"(", 
              RowBox[{"1", "-", "l"}], ")"}]}]], "*", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1"}], "+", 
             RowBox[{"l", "*", 
              RowBox[{"(", 
               RowBox[{"1", "+", 
                FractionBox["1", "\[Eta]"]}], ")"}]}]}], ")"}]}], "-", 
          "\[Mu]"}], ")"}]}]], "*", 
      RowBox[{"(", 
       RowBox[{"1", "-", 
        FractionBox[
         SubscriptBox["l", "o"], "l"]}], ")"}]}], "+", "1"}], ")"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   SubscriptBox["\[Delta]", "o"], "=", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      FractionBox[
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", "\[Tau]w"}], ")"}], "*", "\[Alpha]", "*", "A", "*", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "-", "l"}], ")"}], "\[Alpha]"]}], 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", "l"}], ")"}], "*", 
        RowBox[{"(", 
         RowBox[{"1", "+", "b"}], ")"}], "*", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           FractionBox[
            RowBox[{
             RowBox[{"(", 
              RowBox[{"1", "-", "\[Tau]w"}], ")"}], "*", "\[Alpha]", "*", "A",
              "*", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{"1", "-", "l"}], ")"}], 
              RowBox[{"\[Alpha]", "-", "1"}]]}], 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"1", "+", "b"}], ")"}], "*", 
             RowBox[{"(", 
              RowBox[{"1", "-", "l"}], ")"}]}]], "*", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1"}], "+", 
             RowBox[{"l", "*", 
              RowBox[{"(", 
               RowBox[{"1", "+", 
                FractionBox["1", "\[Eta]"]}], ")"}]}]}], ")"}]}], "-", 
          "\[Mu]"}], ")"}]}]], "*", 
      RowBox[{"(", 
       RowBox[{"1", "-", 
        FractionBox[
         SubscriptBox["l", "o"], "l"]}], ")"}]}], "+", "1"}], ")"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  SubscriptBox["s\[Omega]", "o"], "=", 
  FractionBox[
   SubscriptBox["\[Delta]", "o"], 
   SubscriptBox["\[Delta]", "o"]]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   SubscriptBox["\[Theta]", "o"], "=", 
   FractionBox[
    RowBox[{
     RowBox[{"(", 
      RowBox[{"1", "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           FractionBox["1", 
            SubscriptBox["\[Delta]", "o"]], 
           RowBox[{"(", 
            RowBox[{"1", "-", 
             FractionBox["\[Eta]", 
              RowBox[{"l", "*", 
               RowBox[{"(", 
                RowBox[{"1", "+", "\[Eta]"}], ")"}]}]]}], ")"}]}], "-", "1"}],
          ")"}], "*", "l"}]}], ")"}], "*", 
     RowBox[{"(", 
      RowBox[{"1", "-", "\[Tau]w"}], ")"}], "*", 
     RowBox[{"(", 
      RowBox[{"\[Alpha]", "*", "A", "*", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1", "-", 
          SubscriptBox["l", "o"]}], ")"}], 
        RowBox[{"\[Alpha]", "-", "1"}]]}], ")"}]}], 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", "-", "\[Tau]r"}], ")"}], "*", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"A", "*", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"1", "-", 
            SubscriptBox["l", "o"]}], ")"}], "\[Alpha]"]}], "-", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "-", 
           SubscriptBox["l", "o"]}], ")"}], 
         RowBox[{"(", 
          RowBox[{"\[Alpha]", "*", "A", "*", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"1", "-", 
              SubscriptBox["l", "o"]}], ")"}], 
            RowBox[{"\[Alpha]", "-", "1"}]]}], ")"}]}]}], ")"}], "*", 
      RowBox[{"(", 
       RowBox[{"1", "+", 
        SubscriptBox["b", "o"]}], ")"}]}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", "-", "\[Tau]w"}], ")"}], "*", 
      RowBox[{"(", 
       RowBox[{"1", "-", 
        SubscriptBox["l", "o"]}], ")"}], "*", "\[Alpha]", "*", "A", "*", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1", "-", 
         SubscriptBox["l", "o"]}], ")"}], 
       RowBox[{"\[Alpha]", "-", "1"}]]}]}]]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  SubscriptBox["sy", "o"], "=", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"1", "-", 
     SubscriptBox["\[Theta]", "o"]}], ")"}], 
   SubscriptBox["s\[Omega]", "o"]}]}]}], "Input",
 CellChangeTimes->{3.880685529086549*^9, 3.8806861647070804`*^9},
 CellLabel->
  "In[234]:=",ExpressionUUID->"c5b48a64-b0ed-4913-bf38-30926df61e9f"],

Cell[BoxData["0.30057907613793833`"], "Output",
 CellChangeTimes->{3.880629146268729*^9, 3.8806294584420767`*^9, 
  3.880629611886571*^9, 3.8806856372858663`*^9, 3.8806857254525213`*^9, 
  3.8806863841346707`*^9, 3.880686484921626*^9},
 CellLabel->
  "Out[234]=",ExpressionUUID->"87b65668-fdf5-4fe6-a746-2ed100abc47f"],

Cell[BoxData["1.3141947650731989`"], "Output",
 CellChangeTimes->{3.880629146268729*^9, 3.8806294584420767`*^9, 
  3.880629611886571*^9, 3.8806856372858663`*^9, 3.8806857254525213`*^9, 
  3.8806863841346707`*^9, 3.880686484937273*^9},
 CellLabel->
  "Out[235]=",ExpressionUUID->"12801385-6c2a-45a2-b0f6-3b6ab8c75393"],

Cell[BoxData["1.`"], "Output",
 CellChangeTimes->{3.880629146268729*^9, 3.8806294584420767`*^9, 
  3.880629611886571*^9, 3.8806856372858663`*^9, 3.8806857254525213`*^9, 
  3.8806863841346707`*^9, 3.880686484937273*^9},
 CellLabel->
  "Out[238]=",ExpressionUUID->"169bee0a-8c1e-42dd-8082-5d55511231a3"],

Cell[BoxData["0.22908605048930286`"], "Output",
 CellChangeTimes->{3.880629146268729*^9, 3.8806294584420767`*^9, 
  3.880629611886571*^9, 3.8806856372858663`*^9, 3.8806857254525213`*^9, 
  3.8806863841346707`*^9, 3.880686484937273*^9},
 CellLabel->
  "Out[240]=",ExpressionUUID->"4e6af4ca-648e-43eb-a282-181d9385c4da"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"debt", "-", "to", "-", 
    RowBox[{"gdp", " ", "ratio"}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"BbyY", "=", 
    FractionBox["b", 
     RowBox[{"A", "*", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1", "-", "l"}], ")"}], "\[Alpha]"]}]]}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     SubscriptBox["\[Delta]", "o"], "=", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        FractionBox[
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1", "-", "\[Tau]w"}], ")"}], "*", "\[Alpha]", "*", "A", 
          "*", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"1", "-", "l"}], ")"}], "\[Alpha]"]}], 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1", "-", "l"}], ")"}], "*", 
          RowBox[{"(", 
           RowBox[{"1", "+", "b"}], ")"}], "*", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             FractionBox[
              RowBox[{
               RowBox[{"(", 
                RowBox[{"1", "-", "\[Tau]w"}], ")"}], "*", "\[Alpha]", "*", 
               "A", "*", 
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{"1", "-", "l"}], ")"}], 
                RowBox[{"\[Alpha]", "-", "1"}]]}], 
              RowBox[{
               RowBox[{"(", 
                RowBox[{"1", "+", "b"}], ")"}], "*", 
               RowBox[{"(", 
                RowBox[{"1", "-", "l"}], ")"}]}]], "*", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", 
               RowBox[{"l", "*", 
                RowBox[{"(", 
                 RowBox[{"1", "+", 
                  FractionBox["1", "\[Eta]"]}], ")"}]}]}], ")"}]}], "-", 
            "\[Mu]"}], ")"}]}]], "*", 
        RowBox[{"(", 
         RowBox[{"1", "-", 
          FractionBox[
           SubscriptBox["l", "o"], "l"]}], ")"}]}], "+", "1"}], ")"}]}], 
    ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"\[Delta]", "=", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        FractionBox[
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1", "-", "\[Tau]w"}], ")"}], "*", "\[Alpha]", "*", "A", 
          "*", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"1", "-", "l"}], ")"}], "\[Alpha]"]}], 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1", "-", "l"}], ")"}], "*", 
          RowBox[{"(", 
           RowBox[{"1", "+", "b"}], ")"}], "*", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             FractionBox[
              RowBox[{
               RowBox[{"(", 
                RowBox[{"1", "-", "\[Tau]w"}], ")"}], "*", "\[Alpha]", "*", 
               "A", "*", 
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{"1", "-", "l"}], ")"}], 
                RowBox[{"\[Alpha]", "-", "1"}]]}], 
              RowBox[{
               RowBox[{"(", 
                RowBox[{"1", "+", "b"}], ")"}], "*", 
               RowBox[{"(", 
                RowBox[{"1", "-", "l"}], ")"}]}]], "*", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", 
               RowBox[{"l", "*", 
                RowBox[{"(", 
                 RowBox[{"1", "+", 
                  FractionBox["1", "\[Eta]"]}], ")"}]}]}], ")"}]}], "-", 
            "\[Mu]"}], ")"}]}]], "*", 
        RowBox[{"(", 
         RowBox[{"1", "-", 
          FractionBox["l", "l"]}], ")"}]}], "+", "1"}], ")"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{"wealth", " ", "inequality"}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{"s\[Omega]", "=", 
    RowBox[{
     FractionBox["\[Delta]", 
      SubscriptBox["\[Delta]", "o"]], "*", "1"}]}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"\[Theta]", "=", 
     FractionBox[
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             FractionBox["1", "\[Delta]"], 
             RowBox[{"(", 
              RowBox[{"1", "-", 
               FractionBox["\[Eta]", 
                RowBox[{"l", "*", 
                 RowBox[{"(", 
                  RowBox[{"1", "+", "\[Eta]"}], ")"}]}]]}], ")"}]}], "-", 
            "1"}], ")"}], "*", "l"}]}], ")"}], "*", 
       RowBox[{"(", 
        RowBox[{"1", "-", "\[Tau]w"}], ")"}], "*", 
       RowBox[{"(", 
        RowBox[{"\[Alpha]", "*", "A", "*", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"1", "-", "l"}], ")"}], 
          RowBox[{"\[Alpha]", "-", "1"}]]}], ")"}]}], 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", "\[Tau]r"}], ")"}], "*", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"A", "*", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"1", "-", "l"}], ")"}], "\[Alpha]"]}], "-", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "l"}], ")"}], 
           RowBox[{"(", 
            RowBox[{"\[Alpha]", "*", "A", "*", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{"1", "-", "l"}], ")"}], 
              RowBox[{"\[Alpha]", "-", "1"}]]}], ")"}]}]}], ")"}], "*", 
        RowBox[{"(", 
         RowBox[{"1", "+", "b"}], ")"}]}], "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", "\[Tau]w"}], ")"}], "*", 
        RowBox[{"(", 
         RowBox[{"1", "-", "l"}], ")"}], "*", "\[Alpha]", "*", "A", "*", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "-", "l"}], ")"}], 
         RowBox[{"\[Alpha]", "-", "1"}]]}]}]]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{"income", " ", "inequality"}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{"sy", "=", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"1", "-", "\[Theta]"}], ")"}], "s\[Omega]"}]}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{"growth", " ", "rate"}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{"\[Psi]", "=", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"A", "*", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"1", "-", "l"}], ")"}], "\[Alpha]"]}], "-", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "-", "l"}], ")"}], "*", "\[Alpha]", "*", "A", "*", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"1", "-", "l"}], ")"}], 
          RowBox[{"\[Alpha]", "-", "1"}]]}]}], ")"}], "*", 
      RowBox[{"(", 
       RowBox[{"1", "-", "\[Tau]r"}], ")"}]}], "+", 
     RowBox[{"\[Beta]", "*", "b"}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", "-", "\[Tau]w"}], ")"}], "*", "\[Alpha]", "*", "A", "*", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1", "-", "l"}], ")"}], 
       RowBox[{"\[Alpha]", "-", "1"}]], "*", 
      RowBox[{"(", 
       RowBox[{"1", "-", "l", "-", 
        FractionBox["l", "\[Eta]"]}], ")"}]}], "+", 
     RowBox[{"\[Phi]", "*", "A", "*", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1", "-", "l"}], ")"}], "\[Alpha]"]}]}]}]}]}]], "Input",
 CellChangeTimes->{3.8806855792310114`*^9, 3.880686343078851*^9},
 CellLabel->
  "In[241]:=",ExpressionUUID->"e9e62f2e-a005-4c9c-a5ff-afc677bb701b"],

Cell[BoxData["1.1882750609542803`"], "Output",
 CellChangeTimes->{3.8806294707310977`*^9, 3.8806296158470955`*^9, 
  3.8806864999265146`*^9},
 CellLabel->
  "Out[241]=",ExpressionUUID->"6533dad1-5d17-421c-b017-5e810f1e7362"],

Cell[BoxData["1.0025281452027037`"], "Output",
 CellChangeTimes->{3.8806294707310977`*^9, 3.8806296158470955`*^9, 
  3.880686499942136*^9},
 CellLabel->
  "Out[244]=",ExpressionUUID->"7fbfb416-5319-492f-b79e-ae441c2b049a"],

Cell[BoxData["0.2354733327320113`"], "Output",
 CellChangeTimes->{3.8806294707310977`*^9, 3.8806296158470955`*^9, 
  3.880686499942136*^9},
 CellLabel->
  "Out[246]=",ExpressionUUID->"c2325e78-eef1-403d-a81f-d76b68e29864"],

Cell[BoxData["0.021128077992492222`"], "Output",
 CellChangeTimes->{3.8806294707310977`*^9, 3.8806296158470955`*^9, 
  3.8806864999612427`*^9},
 CellLabel->
  "Out[247]=",ExpressionUUID->"fe1db164-d6fc-4d66-9c4c-c3faffe8161a"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"ClearAll", "[", 
  RowBox[{"l", ",", "b", ",", "\[Mu]"}], "]"}]], "Input",
 CellChangeTimes->{{3.880629485471915*^9, 3.8806294890217667`*^9}},
 CellLabel->
  "In[248]:=",ExpressionUUID->"a8c7a0a5-7d79-41e5-9b19-eb8da56d29fd"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "increasing", " ", "\[Beta]", " ", "from", " ", "0.586", " ", "to", " ", 
    "0.686"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"A", "=", "0.7"}], ";", 
    RowBox[{"\[Alpha]", "=", "0.6"}], ";", 
    RowBox[{"\[Rho]", "=", "0.04"}], ";", 
    RowBox[{"\[Gamma]", "=", 
     RowBox[{"-", "2"}]}], ";", 
    RowBox[{"\[Eta]", "=", "1.75"}], ";", 
    RowBox[{"\[Tau]w", "=", "0.15"}], ";", 
    RowBox[{"\[Tau]r", "=", "0.15"}], ";", 
    RowBox[{"\[Beta]", "=", "0.686"}], ";", 
    RowBox[{"\[Phi]", "=", 
     RowBox[{"-", "0.658"}]}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     SubscriptBox["a", "o"], "=", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        FractionBox[
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "\[Tau]r"}], ")"}], "*", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"A", "*", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{"1", "-", "l"}], ")"}], "\[Alpha]"]}], "-", 
             RowBox[{"A", "*", "\[Alpha]", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{"1", "-", "l"}], ")"}], "\[Alpha]"]}]}], ")"}]}], "-",
           "\[Rho]"}], 
         RowBox[{"1", "-", "\[Gamma]"}]], "-", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "-", "\[Tau]r"}], ")"}], "*", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"A", "*", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"1", "-", "l"}], ")"}], "\[Alpha]"]}], "-", 
           RowBox[{"A", "*", "\[Alpha]", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"1", "-", "l"}], ")"}], "\[Alpha]"]}]}], ")"}]}], "-", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "-", "\[Tau]w"}], ")"}], "*", "A", "*", "\[Alpha]", 
         "*", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"1", "-", "l"}], ")"}], 
          RowBox[{"\[Alpha]", "-", "1"}]], "*", 
         RowBox[{"(", 
          RowBox[{"1", "-", "l", "-", 
           FractionBox["l", "\[Eta]"]}], ")"}]}], "-", 
        RowBox[{"\[Beta]", "*", "b"}], "-", 
        RowBox[{"\[Phi]", "*", "A", "*", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"1", "-", "l"}], ")"}], "\[Alpha]"]}]}], ")"}], "/", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", 
         FractionBox[
          RowBox[{
           RowBox[{"(", 
            RowBox[{"\[Alpha]", "-", "1"}], ")"}], "*", "\[Alpha]", "*", "A", 
           "*", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"1", "-", "l"}], ")"}], 
            RowBox[{"\[Alpha]", "-", "2"}]]}], 
          RowBox[{"\[Alpha]", "*", "A", "*", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"1", "-", "l"}], ")"}], 
            RowBox[{"\[Alpha]", "-", "1"}]]}]]}], "+", 
        RowBox[{
         FractionBox[
          RowBox[{"1", "-", 
           RowBox[{"\[Gamma]", "*", 
            RowBox[{"(", 
             RowBox[{"1", "+", "\[Eta]"}], ")"}]}]}], 
          RowBox[{"1", "-", "\[Gamma]"}]], "*", 
         FractionBox["1", "l"]}]}], ")"}]}]}], ";", 
    RowBox[{
     SubscriptBox["a", "oo"], "=", 
     RowBox[{
      RowBox[{
       RowBox[{"-", 
        RowBox[{"(", 
         RowBox[{"1", "-", "\[Tau]w"}], ")"}]}], "*", "\[Alpha]", "*", "A", 
       "*", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1", "-", "l"}], ")"}], "\[Alpha]"], 
       RowBox[{"(", 
        RowBox[{"1", "-", 
         FractionBox["l", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "l"}], ")"}], "*", "\[Eta]"}]]}], ")"}], "*", 
       "b"}], "-", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "+", "b"}], ")"}], "*", "\[Beta]", "*", "b"}], "-", 
      RowBox[{"\[Phi]", "*", 
       RowBox[{"(", 
        RowBox[{"1", "+", "b"}], ")"}], "A", "*", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1", "-", "l"}], ")"}], "\[Alpha]"]}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"NSolve", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        SubscriptBox["a", "o"], "==", "0"}], ",", 
       RowBox[{
        SubscriptBox["a", "oo"], "==", "0"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"l", ",", "b"}], "}"}]}], "]"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"a11", "=", 
     RowBox[{"D", "[", 
      RowBox[{
       SubscriptBox["a", "o"], ",", "l"}], "]"}]}], ";", 
    RowBox[{"a12", "=", 
     RowBox[{"D", "[", 
      RowBox[{
       SubscriptBox["a", "o"], ",", "b"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"a21", "=", 
     RowBox[{"D", "[", 
      RowBox[{
       SubscriptBox["a", "oo"], ",", "l"}], "]"}]}], ";", 
    RowBox[{"a22", "=", 
     RowBox[{"D", "[", 
      RowBox[{
       SubscriptBox["a", "oo"], ",", "b"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]"}]}]], "Input",
 CellChangeTimes->{
  3.8509684455453806`*^9, {3.8509730020063195`*^9, 3.850973002693715*^9}, {
   3.851202924886072*^9, 3.8512029682666693`*^9}, {3.85120306462359*^9, 
   3.851203064914654*^9}, 3.8600976843339806`*^9, {3.8654833457573037`*^9, 
   3.865483350696267*^9}, 3.870238260680733*^9, {3.8789742064647717`*^9, 
   3.878974232788489*^9}, {3.879675927076365*^9, 3.8796759279777164`*^9}, {
   3.879676167729402*^9, 3.8796761701613216`*^9}, {3.8796762778909435`*^9, 
   3.8796762781064243`*^9}, 3.8806294950625753`*^9, {3.880629646586754*^9, 
   3.8806296512386007`*^9}},
 CellLabel->
  "In[249]:=",ExpressionUUID->"99dcde3b-053e-426a-86a7-9a6858ba06b2"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"l", "\[Rule]", 
      RowBox[{"-", "61.81295110352426`"}]}], ",", 
     RowBox[{"b", "\[Rule]", 
      RowBox[{"-", "4.490780303566012`"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"l", "\[Rule]", "0.7491497902731578`"}], ",", 
     RowBox[{"b", "\[Rule]", "0.33290672779901925`"}]}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.850968449235602*^9, {3.8509730069191236`*^9, 3.850973017002387*^9}, 
   3.851196304299369*^9, {3.8512029495998807`*^9, 3.851202971549856*^9}, 
   3.851203068333338*^9, 3.8600977299594383`*^9, 3.865483354470317*^9, 
   3.8702382639315624`*^9, 3.8740742680490894`*^9, 3.8749799751636553`*^9, 
   3.8789743609349527`*^9, {3.879675922231017*^9, 3.879675930408944*^9}, 
   3.879676209945113*^9, 3.879676302015808*^9, 3.8806296214887156`*^9, 
   3.8806296528185167`*^9, 3.8806865135316978`*^9},
 CellLabel->
  "Out[251]=",ExpressionUUID->"c7195b90-91e6-483b-82a0-06d8b29f4d85"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"l", "=", "0.7491497902731578"}], ";", 
  RowBox[{"b", "=", "0.33290672779901925"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a11", "-", "\[Mu]"}], ")"}], "*", 
      RowBox[{"(", 
       RowBox[{"a22", "-", "\[Mu]"}], ")"}]}], "-", 
     RowBox[{"a12", "*", "a21"}]}], "==", "0"}], ",", "\[Mu]"}], 
  "]"}]}], "Input",
 CellChangeTimes->{{3.8806296813019586`*^9, 3.8806296959989634`*^9}},
 CellLabel->
  "In[254]:=",ExpressionUUID->"03ac8cf9-5a2e-49c4-8eb8-f7b50d2e8df3"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"\[Mu]", "\[Rule]", 
     RowBox[{"-", "0.8691185640502761`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\[Mu]", "\[Rule]", "0.22358007419659853`"}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.8806296972996807`*^9, 3.8806865156400156`*^9},
 CellLabel->
  "Out[255]=",ExpressionUUID->"cd9d42a8-be47-4a72-bc5a-81cb32dd51f9"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"\[Mu]", "=", 
   RowBox[{"-", "0.8691185640502761"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   SubscriptBox["b", "o"], "=", "0.39501944835101704"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"bt", "=", 
   RowBox[{"b", "+", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       SubscriptBox["b", "o"], "-", "b"}], ")"}], "*", 
     RowBox[{"Exp", "[", 
      RowBox[{"\[Mu]", "*", "t"}], "]"}]}]}]}], ";", 
  RowBox[{
   SubscriptBox["b", "o"], "=", 
   RowBox[{"bt", "/.", 
    RowBox[{"t", "->", "0"}]}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"lt", "=", 
   RowBox[{"l", "+", 
    RowBox[{
     FractionBox["a12", 
      RowBox[{"\[Mu]", "-", "a11"}]], "*", 
     RowBox[{"(", 
      RowBox[{"bt", "-", "b"}], ")"}]}]}]}], ";", 
  RowBox[{
   SubscriptBox["l", "o"], "=", 
   RowBox[{"lt", "/.", 
    RowBox[{"t", "->", "0"}]}]}]}]}], "Input",
 CellChangeTimes->{{3.8806297216160574`*^9, 3.8806297235998526`*^9}, {
  3.8806851419360905`*^9, 3.8806851435139246`*^9}},
 CellLabel->
  "In[256]:=",ExpressionUUID->"97851466-b264-46de-ab45-30e06fa3d5f4"],

Cell[BoxData["0.39501944835101704`"], "Output",
 CellChangeTimes->{3.8806297267396493`*^9, 3.8806865195592117`*^9},
 CellLabel->
  "Out[258]=",ExpressionUUID->"18358e26-9972-4532-88b1-9d4aa2f66e74"],

Cell[BoxData["0.7581478639257138`"], "Output",
 CellChangeTimes->{3.8806297267396493`*^9, 3.8806865195592117`*^9},
 CellLabel->
  "Out[259]=",ExpressionUUID->"fd2f6550-2b44-4db2-ba63-8f515ddd7cff"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  SubscriptBox["y", "o"], "=", 
  RowBox[{"A", "*", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "-", 
      SubscriptBox["l", "o"]}], ")"}], "\[Alpha]"]}]}], "\[IndentingNewLine]", 
 RowBox[{
  SubscriptBox["BbyY", "o"], "=", 
  FractionBox[
   SubscriptBox["b", "o"], 
   RowBox[{"A", "*", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "-", 
       SubscriptBox["l", "o"]}], ")"}], 
     "\[Alpha]"]}]]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   SubscriptBox["\[Delta]", "o"], "=", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      FractionBox[
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", "\[Tau]w"}], ")"}], "*", "\[Alpha]", "*", "A", "*", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "-", "l"}], ")"}], "\[Alpha]"]}], 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", "l"}], ")"}], "*", 
        RowBox[{"(", 
         RowBox[{"1", "+", "b"}], ")"}], "*", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           FractionBox[
            RowBox[{
             RowBox[{"(", 
              RowBox[{"1", "-", "\[Tau]w"}], ")"}], "*", "\[Alpha]", "*", "A",
              "*", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{"1", "-", "l"}], ")"}], 
              RowBox[{"\[Alpha]", "-", "1"}]]}], 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"1", "+", "b"}], ")"}], "*", 
             RowBox[{"(", 
              RowBox[{"1", "-", "l"}], ")"}]}]], "*", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1"}], "+", 
             RowBox[{"l", "*", 
              RowBox[{"(", 
               RowBox[{"1", "+", 
                FractionBox["1", "\[Eta]"]}], ")"}]}]}], ")"}]}], "-", 
          "\[Mu]"}], ")"}]}]], "*", 
      RowBox[{"(", 
       RowBox[{"1", "-", 
        FractionBox[
         SubscriptBox["l", "o"], "l"]}], ")"}]}], "+", "1"}], ")"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   SubscriptBox["\[Delta]", "o"], "=", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      FractionBox[
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", "\[Tau]w"}], ")"}], "*", "\[Alpha]", "*", "A", "*", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "-", "l"}], ")"}], "\[Alpha]"]}], 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", "l"}], ")"}], "*", 
        RowBox[{"(", 
         RowBox[{"1", "+", "b"}], ")"}], "*", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           FractionBox[
            RowBox[{
             RowBox[{"(", 
              RowBox[{"1", "-", "\[Tau]w"}], ")"}], "*", "\[Alpha]", "*", "A",
              "*", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{"1", "-", "l"}], ")"}], 
              RowBox[{"\[Alpha]", "-", "1"}]]}], 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"1", "+", "b"}], ")"}], "*", 
             RowBox[{"(", 
              RowBox[{"1", "-", "l"}], ")"}]}]], "*", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1"}], "+", 
             RowBox[{"l", "*", 
              RowBox[{"(", 
               RowBox[{"1", "+", 
                FractionBox["1", "\[Eta]"]}], ")"}]}]}], ")"}]}], "-", 
          "\[Mu]"}], ")"}]}]], "*", 
      RowBox[{"(", 
       RowBox[{"1", "-", 
        FractionBox[
         SubscriptBox["l", "o"], "l"]}], ")"}]}], "+", "1"}], ")"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  SubscriptBox["s\[Omega]", "o"], "=", 
  FractionBox[
   SubscriptBox["\[Delta]", "o"], 
   SubscriptBox["\[Delta]", "o"]]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   SubscriptBox["\[Theta]", "o"], "=", 
   FractionBox[
    RowBox[{
     RowBox[{"(", 
      RowBox[{"1", "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           FractionBox["1", 
            SubscriptBox["\[Delta]", "o"]], 
           RowBox[{"(", 
            RowBox[{"1", "-", 
             FractionBox["\[Eta]", 
              RowBox[{"l", "*", 
               RowBox[{"(", 
                RowBox[{"1", "+", "\[Eta]"}], ")"}]}]]}], ")"}]}], "-", "1"}],
          ")"}], "*", "l"}]}], ")"}], "*", 
     RowBox[{"(", 
      RowBox[{"1", "-", "\[Tau]w"}], ")"}], "*", 
     RowBox[{"(", 
      RowBox[{"\[Alpha]", "*", "A", "*", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1", "-", 
          SubscriptBox["l", "o"]}], ")"}], 
        RowBox[{"\[Alpha]", "-", "1"}]]}], ")"}]}], 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", "-", "\[Tau]r"}], ")"}], "*", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"A", "*", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"1", "-", 
            SubscriptBox["l", "o"]}], ")"}], "\[Alpha]"]}], "-", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "-", 
           SubscriptBox["l", "o"]}], ")"}], 
         RowBox[{"(", 
          RowBox[{"\[Alpha]", "*", "A", "*", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"1", "-", 
              SubscriptBox["l", "o"]}], ")"}], 
            RowBox[{"\[Alpha]", "-", "1"}]]}], ")"}]}]}], ")"}], "*", 
      RowBox[{"(", 
       RowBox[{"1", "+", 
        SubscriptBox["b", "o"]}], ")"}]}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", "-", "\[Tau]w"}], ")"}], "*", 
      RowBox[{"(", 
       RowBox[{"1", "-", 
        SubscriptBox["l", "o"]}], ")"}], "*", "\[Alpha]", "*", "A", "*", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1", "-", 
         SubscriptBox["l", "o"]}], ")"}], 
       RowBox[{"\[Alpha]", "-", "1"}]]}]}]]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  SubscriptBox["sy", "o"], "=", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"1", "-", 
     SubscriptBox["\[Theta]", "o"]}], ")"}], 
   SubscriptBox["s\[Omega]", "o"]}]}]}], "Input",
 CellChangeTimes->{3.8806855387562256`*^9, 3.880686171736665*^9},
 CellLabel->
  "In[260]:=",ExpressionUUID->"6f1939e8-04d7-436c-b14a-9ec2196196c7"],

Cell[BoxData["0.29869503006366205`"], "Output",
 CellChangeTimes->{3.8806297508017273`*^9, 3.8806865638239927`*^9},
 CellLabel->
  "Out[260]=",ExpressionUUID->"69241190-ae1f-43c2-835c-d49c53eb5973"],

Cell[BoxData["1.3224841681055923`"], "Output",
 CellChangeTimes->{3.8806297508017273`*^9, 3.8806865638239927`*^9},
 CellLabel->
  "Out[261]=",ExpressionUUID->"e3e695c2-3f77-430d-83ea-9aa46132895a"],

Cell[BoxData["1.`"], "Output",
 CellChangeTimes->{3.8806297508017273`*^9, 3.880686563841953*^9},
 CellLabel->
  "Out[264]=",ExpressionUUID->"94f26193-5e8b-4954-93ed-aee694f3e97c"],

Cell[BoxData["0.21983135997153702`"], "Output",
 CellChangeTimes->{3.8806297508017273`*^9, 3.8806865638443575`*^9},
 CellLabel->
  "Out[266]=",ExpressionUUID->"b7322101-55b7-43b6-9c81-a767e7a848af"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"debt", "-", "to", "-", 
    RowBox[{"gdp", " ", "ratio"}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"BbyY", "=", 
    FractionBox["b", 
     RowBox[{"A", "*", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1", "-", "l"}], ")"}], "\[Alpha]"]}]]}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     SubscriptBox["\[Delta]", "o"], "=", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        FractionBox[
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1", "-", "\[Tau]w"}], ")"}], "*", "\[Alpha]", "*", "A", 
          "*", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"1", "-", "l"}], ")"}], "\[Alpha]"]}], 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1", "-", "l"}], ")"}], "*", 
          RowBox[{"(", 
           RowBox[{"1", "+", "b"}], ")"}], "*", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             FractionBox[
              RowBox[{
               RowBox[{"(", 
                RowBox[{"1", "-", "\[Tau]w"}], ")"}], "*", "\[Alpha]", "*", 
               "A", "*", 
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{"1", "-", "l"}], ")"}], 
                RowBox[{"\[Alpha]", "-", "1"}]]}], 
              RowBox[{
               RowBox[{"(", 
                RowBox[{"1", "+", "b"}], ")"}], "*", 
               RowBox[{"(", 
                RowBox[{"1", "-", "l"}], ")"}]}]], "*", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", 
               RowBox[{"l", "*", 
                RowBox[{"(", 
                 RowBox[{"1", "+", 
                  FractionBox["1", "\[Eta]"]}], ")"}]}]}], ")"}]}], "-", 
            "\[Mu]"}], ")"}]}]], "*", 
        RowBox[{"(", 
         RowBox[{"1", "-", 
          FractionBox[
           SubscriptBox["l", "o"], "l"]}], ")"}]}], "+", "1"}], ")"}]}], 
    ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"\[Delta]", "=", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        FractionBox[
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1", "-", "\[Tau]w"}], ")"}], "*", "\[Alpha]", "*", "A", 
          "*", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"1", "-", "l"}], ")"}], "\[Alpha]"]}], 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1", "-", "l"}], ")"}], "*", 
          RowBox[{"(", 
           RowBox[{"1", "+", "b"}], ")"}], "*", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             FractionBox[
              RowBox[{
               RowBox[{"(", 
                RowBox[{"1", "-", "\[Tau]w"}], ")"}], "*", "\[Alpha]", "*", 
               "A", "*", 
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{"1", "-", "l"}], ")"}], 
                RowBox[{"\[Alpha]", "-", "1"}]]}], 
              RowBox[{
               RowBox[{"(", 
                RowBox[{"1", "+", "b"}], ")"}], "*", 
               RowBox[{"(", 
                RowBox[{"1", "-", "l"}], ")"}]}]], "*", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", 
               RowBox[{"l", "*", 
                RowBox[{"(", 
                 RowBox[{"1", "+", 
                  FractionBox["1", "\[Eta]"]}], ")"}]}]}], ")"}]}], "-", 
            "\[Mu]"}], ")"}]}]], "*", 
        RowBox[{"(", 
         RowBox[{"1", "-", 
          FractionBox["l", "l"]}], ")"}]}], "+", "1"}], ")"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{"wealth", " ", "inequality"}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{"s\[Omega]", "=", 
    RowBox[{
     FractionBox["\[Delta]", 
      SubscriptBox["\[Delta]", "o"]], "*", "1"}]}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"\[Theta]", "=", 
     FractionBox[
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             FractionBox["1", "\[Delta]"], 
             RowBox[{"(", 
              RowBox[{"1", "-", 
               FractionBox["\[Eta]", 
                RowBox[{"l", "*", 
                 RowBox[{"(", 
                  RowBox[{"1", "+", "\[Eta]"}], ")"}]}]]}], ")"}]}], "-", 
            "1"}], ")"}], "*", "l"}]}], ")"}], "*", 
       RowBox[{"(", 
        RowBox[{"1", "-", "\[Tau]w"}], ")"}], "*", 
       RowBox[{"(", 
        RowBox[{"\[Alpha]", "*", "A", "*", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"1", "-", "l"}], ")"}], 
          RowBox[{"\[Alpha]", "-", "1"}]]}], ")"}]}], 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", "\[Tau]r"}], ")"}], "*", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"A", "*", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"1", "-", "l"}], ")"}], "\[Alpha]"]}], "-", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "l"}], ")"}], 
           RowBox[{"(", 
            RowBox[{"\[Alpha]", "*", "A", "*", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{"1", "-", "l"}], ")"}], 
              RowBox[{"\[Alpha]", "-", "1"}]]}], ")"}]}]}], ")"}], "*", 
        RowBox[{"(", 
         RowBox[{"1", "+", "b"}], ")"}]}], "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", "\[Tau]w"}], ")"}], "*", 
        RowBox[{"(", 
         RowBox[{"1", "-", "l"}], ")"}], "*", "\[Alpha]", "*", "A", "*", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "-", "l"}], ")"}], 
         RowBox[{"\[Alpha]", "-", "1"}]]}]}]]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{"income", " ", "inequality"}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{"sy", "=", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"1", "-", "\[Theta]"}], ")"}], "s\[Omega]"}]}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{"growth", " ", "rate"}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{"\[Psi]", "=", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"A", "*", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"1", "-", "l"}], ")"}], "\[Alpha]"]}], "-", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "-", "l"}], ")"}], "*", "\[Alpha]", "*", "A", "*", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"1", "-", "l"}], ")"}], 
          RowBox[{"\[Alpha]", "-", "1"}]]}]}], ")"}], "*", 
      RowBox[{"(", 
       RowBox[{"1", "-", "\[Tau]r"}], ")"}]}], "+", 
     RowBox[{"\[Beta]", "*", "b"}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", "-", "\[Tau]w"}], ")"}], "*", "\[Alpha]", "*", "A", "*", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1", "-", "l"}], ")"}], 
       RowBox[{"\[Alpha]", "-", "1"}]], "*", 
      RowBox[{"(", 
       RowBox[{"1", "-", "l", "-", 
        FractionBox["l", "\[Eta]"]}], ")"}]}], "+", 
     RowBox[{"\[Phi]", "*", "A", "*", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1", "-", "l"}], ")"}], "\[Alpha]"]}]}]}]}]}]], "Input",
 CellChangeTimes->{3.8806855940697374`*^9, 3.8806863494992647`*^9},
 CellLabel->
  "In[267]:=",ExpressionUUID->"88fde585-24f6-46e3-9a1c-759e70cdc4c6"],

Cell[BoxData["1.0903749132325735`"], "Output",
 CellChangeTimes->{3.880629778393921*^9, 3.8806865685499473`*^9},
 CellLabel->
  "Out[267]=",ExpressionUUID->"0c18fb32-6353-4c19-ba73-c5a935560256"],

Cell[BoxData["1.0046903391162034`"], "Output",
 CellChangeTimes->{3.880629778393921*^9, 3.8806865685499473`*^9},
 CellLabel->
  "Out[270]=",ExpressionUUID->"a80fa3b2-9e58-4e03-bc6e-6d82016d1701"],

Cell[BoxData["0.23353113373048492`"], "Output",
 CellChangeTimes->{3.880629778393921*^9, 3.880686568565569*^9},
 CellLabel->
  "Out[272]=",ExpressionUUID->"fcefe4a6-0e20-428d-a711-a8fd8fda4f9c"],

Cell[BoxData["0.021268920160101512`"], "Output",
 CellChangeTimes->{3.880629778393921*^9, 3.880686568565569*^9},
 CellLabel->
  "Out[273]=",ExpressionUUID->"b1f6b14b-c747-4158-9010-6cde155722ba"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"ClearAll", "[", 
  RowBox[{"l", ",", "b", ",", "\[Mu]"}], "]"}]], "Input",
 CellChangeTimes->{{3.880629832628565*^9, 3.8806298341410513`*^9}},
 CellLabel->
  "In[274]:=",ExpressionUUID->"2ac55e56-f4ca-4d92-a65e-951f0191e05f"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "increasing", " ", "\[Beta]", " ", "from", " ", "0.586", " ", "to", " ", 
    "0.736"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"A", "=", "0.7"}], ";", 
    RowBox[{"\[Alpha]", "=", "0.6"}], ";", 
    RowBox[{"\[Rho]", "=", "0.04"}], ";", 
    RowBox[{"\[Gamma]", "=", 
     RowBox[{"-", "2"}]}], ";", 
    RowBox[{"\[Eta]", "=", "1.75"}], ";", 
    RowBox[{"\[Tau]w", "=", "0.15"}], ";", 
    RowBox[{"\[Tau]r", "=", "0.15"}], ";", 
    RowBox[{"\[Beta]", "=", "0.736"}], ";", 
    RowBox[{"\[Phi]", "=", 
     RowBox[{"-", "0.658"}]}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     SubscriptBox["a", "o"], "=", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        FractionBox[
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "\[Tau]r"}], ")"}], "*", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"A", "*", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{"1", "-", "l"}], ")"}], "\[Alpha]"]}], "-", 
             RowBox[{"A", "*", "\[Alpha]", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{"1", "-", "l"}], ")"}], "\[Alpha]"]}]}], ")"}]}], "-",
           "\[Rho]"}], 
         RowBox[{"1", "-", "\[Gamma]"}]], "-", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "-", "\[Tau]r"}], ")"}], "*", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"A", "*", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"1", "-", "l"}], ")"}], "\[Alpha]"]}], "-", 
           RowBox[{"A", "*", "\[Alpha]", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"1", "-", "l"}], ")"}], "\[Alpha]"]}]}], ")"}]}], "-", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "-", "\[Tau]w"}], ")"}], "*", "A", "*", "\[Alpha]", 
         "*", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"1", "-", "l"}], ")"}], 
          RowBox[{"\[Alpha]", "-", "1"}]], "*", 
         RowBox[{"(", 
          RowBox[{"1", "-", "l", "-", 
           FractionBox["l", "\[Eta]"]}], ")"}]}], "-", 
        RowBox[{"\[Beta]", "*", "b"}], "-", 
        RowBox[{"\[Phi]", "*", "A", "*", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"1", "-", "l"}], ")"}], "\[Alpha]"]}]}], ")"}], "/", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", 
         FractionBox[
          RowBox[{
           RowBox[{"(", 
            RowBox[{"\[Alpha]", "-", "1"}], ")"}], "*", "\[Alpha]", "*", "A", 
           "*", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"1", "-", "l"}], ")"}], 
            RowBox[{"\[Alpha]", "-", "2"}]]}], 
          RowBox[{"\[Alpha]", "*", "A", "*", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"1", "-", "l"}], ")"}], 
            RowBox[{"\[Alpha]", "-", "1"}]]}]]}], "+", 
        RowBox[{
         FractionBox[
          RowBox[{"1", "-", 
           RowBox[{"\[Gamma]", "*", 
            RowBox[{"(", 
             RowBox[{"1", "+", "\[Eta]"}], ")"}]}]}], 
          RowBox[{"1", "-", "\[Gamma]"}]], "*", 
         FractionBox["1", "l"]}]}], ")"}]}]}], ";", 
    RowBox[{
     SubscriptBox["a", "oo"], "=", 
     RowBox[{
      RowBox[{
       RowBox[{"-", 
        RowBox[{"(", 
         RowBox[{"1", "-", "\[Tau]w"}], ")"}]}], "*", "\[Alpha]", "*", "A", 
       "*", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1", "-", "l"}], ")"}], "\[Alpha]"], 
       RowBox[{"(", 
        RowBox[{"1", "-", 
         FractionBox["l", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "l"}], ")"}], "*", "\[Eta]"}]]}], ")"}], "*", 
       "b"}], "-", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "+", "b"}], ")"}], "*", "\[Beta]", "*", "b"}], "-", 
      RowBox[{"\[Phi]", "*", 
       RowBox[{"(", 
        RowBox[{"1", "+", "b"}], ")"}], "A", "*", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1", "-", "l"}], ")"}], "\[Alpha]"]}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"NSolve", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        SubscriptBox["a", "o"], "==", "0"}], ",", 
       RowBox[{
        SubscriptBox["a", "oo"], "==", "0"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"l", ",", "b"}], "}"}]}], "]"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"a11", "=", 
     RowBox[{"D", "[", 
      RowBox[{
       SubscriptBox["a", "o"], ",", "l"}], "]"}]}], ";", 
    RowBox[{"a12", "=", 
     RowBox[{"D", "[", 
      RowBox[{
       SubscriptBox["a", "o"], ",", "b"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"a21", "=", 
     RowBox[{"D", "[", 
      RowBox[{
       SubscriptBox["a", "oo"], ",", "l"}], "]"}]}], ";", 
    RowBox[{"a22", "=", 
     RowBox[{"D", "[", 
      RowBox[{
       SubscriptBox["a", "oo"], ",", "b"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]"}]}]], "Input",
 CellChangeTimes->{
  3.8509684667208414`*^9, {3.8509730202600136`*^9, 3.850973021009858*^9}, {
   3.8512029850960493`*^9, 3.851203038041814*^9}, {3.8512030710303144`*^9, 
   3.851203071315076*^9}, 3.8600976893559027`*^9, {3.8654833630498776`*^9, 
   3.865483373030549*^9}, 3.870238268096469*^9, {3.8789742378746605`*^9, 
   3.8789742732655034`*^9}, {3.8796759352736335`*^9, 
   3.8796759361872854`*^9}, {3.8796761736014853`*^9, 
   3.8796761756820297`*^9}, {3.8796762813615084`*^9, 3.8796762815426273`*^9}, 
   3.880628611084041*^9},
 CellLabel->
  "In[275]:=",ExpressionUUID->"83ca7947-98f2-465e-a882-518217a9fcbb"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"l", "\[Rule]", 
      RowBox[{"-", "69.59956295771116`"}]}], ",", 
     RowBox[{"b", "\[Rule]", 
      RowBox[{"-", "4.494669138089705`"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"l", "\[Rule]", "0.7476808802461585`"}], ",", 
     RowBox[{"b", "\[Rule]", "0.30862778611919445`"}]}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.8509684695377274`*^9, 3.850973024435878*^9, 
  3.851196309413756*^9, 3.851203042216939*^9, 3.8512030749501605`*^9, 
  3.860097733979128*^9, 3.86548337626379*^9, 3.8702382710938993`*^9, 
  3.8740742717990417`*^9, 3.8749799930302057`*^9, 3.878974369312749*^9, 
  3.8796759384027157`*^9, 3.8796762134147234`*^9, 3.879676305592123*^9, 
  3.8806297874214773`*^9, 3.880629839380831*^9, 3.880686618853546*^9},
 CellLabel->
  "Out[277]=",ExpressionUUID->"8da8a16e-00d4-41b6-807a-1af792257252"]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{
  3.880629806171748*^9},ExpressionUUID->"bcc9e81e-7e43-4ecd-bff7-\
082a02e1d656"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"l", "=", "0.7476808802461585"}], ";", 
  RowBox[{"b", "=", "0.30862778611919445"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a11", "-", "\[Mu]"}], ")"}], "*", 
      RowBox[{"(", 
       RowBox[{"a22", "-", "\[Mu]"}], ")"}]}], "-", 
     RowBox[{"a12", "*", "a21"}]}], "==", "0"}], ",", "\[Mu]"}], 
  "]"}]}], "Input",
 CellChangeTimes->{{3.8806298128369193`*^9, 3.8806298254931855`*^9}},
 CellLabel->
  "In[280]:=",ExpressionUUID->"8cbf09a3-e17a-48d4-b4e4-6b9d975488be"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"\[Mu]", "\[Rule]", 
     RowBox[{"-", "0.9210305249473328`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\[Mu]", "\[Rule]", "0.22594081708546723`"}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.8806298285957355`*^9, 3.8806298418563523`*^9}, 
   3.880686621222153*^9},
 CellLabel->
  "Out[281]=",ExpressionUUID->"18bc93aa-aa65-4745-b7c8-082294ff1350"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"\[Mu]", "=", 
   RowBox[{"-", "0.9210305249473328"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   SubscriptBox["b", "o"], "=", "0.39501944835101704"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"bt", "=", 
   RowBox[{"b", "+", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       SubscriptBox["b", "o"], "-", "b"}], ")"}], "*", 
     RowBox[{"Exp", "[", 
      RowBox[{"\[Mu]", "*", "t"}], "]"}]}]}]}], ";", 
  RowBox[{
   SubscriptBox["b", "o"], "=", 
   RowBox[{"bt", "/.", 
    RowBox[{"t", "->", "0"}]}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"lt", "=", 
   RowBox[{"l", "+", 
    RowBox[{
     FractionBox["a12", 
      RowBox[{"\[Mu]", "-", "a11"}]], "*", 
     RowBox[{"(", 
      RowBox[{"bt", "-", "b"}], ")"}]}]}]}], ";", 
  RowBox[{
   SubscriptBox["l", "o"], "=", 
   RowBox[{"lt", "/.", 
    RowBox[{"t", "->", "0"}]}]}]}]}], "Input",
 CellChangeTimes->{
  3.880629531343167*^9, {3.880629854602582*^9, 3.880629856795991*^9}, {
   3.880685152576831*^9, 3.880685153873478*^9}},
 CellLabel->
  "In[282]:=",ExpressionUUID->"b8159f16-cadc-40c1-b315-e47536d7ec68"],

Cell[BoxData["0.39501944835101704`"], "Output",
 CellChangeTimes->{3.8806298597857227`*^9, 3.8806866239076877`*^9},
 CellLabel->
  "Out[284]=",ExpressionUUID->"fcd9af83-5e3a-46e8-9635-466af127a5ce"],

Cell[BoxData["0.7605009413678392`"], "Output",
 CellChangeTimes->{3.8806298597857227`*^9, 3.880686623923332*^9},
 CellLabel->
  "Out[285]=",ExpressionUUID->"25989b83-47f3-4f77-acec-efd727c19452"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  SubscriptBox["y", "o"], "=", 
  RowBox[{"A", "*", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "-", 
      SubscriptBox["l", "o"]}], ")"}], "\[Alpha]"]}]}], "\[IndentingNewLine]", 
 RowBox[{
  SubscriptBox["BbyY", "o"], "=", 
  FractionBox[
   SubscriptBox["b", "o"], 
   RowBox[{"A", "*", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "-", 
       SubscriptBox["l", "o"]}], ")"}], 
     "\[Alpha]"]}]]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   SubscriptBox["\[Delta]", "o"], "=", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      FractionBox[
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", "\[Tau]w"}], ")"}], "*", "\[Alpha]", "*", "A", "*", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "-", "l"}], ")"}], "\[Alpha]"]}], 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", "l"}], ")"}], "*", 
        RowBox[{"(", 
         RowBox[{"1", "+", "b"}], ")"}], "*", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           FractionBox[
            RowBox[{
             RowBox[{"(", 
              RowBox[{"1", "-", "\[Tau]w"}], ")"}], "*", "\[Alpha]", "*", "A",
              "*", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{"1", "-", "l"}], ")"}], 
              RowBox[{"\[Alpha]", "-", "1"}]]}], 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"1", "+", "b"}], ")"}], "*", 
             RowBox[{"(", 
              RowBox[{"1", "-", "l"}], ")"}]}]], "*", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1"}], "+", 
             RowBox[{"l", "*", 
              RowBox[{"(", 
               RowBox[{"1", "+", 
                FractionBox["1", "\[Eta]"]}], ")"}]}]}], ")"}]}], "-", 
          "\[Mu]"}], ")"}]}]], "*", 
      RowBox[{"(", 
       RowBox[{"1", "-", 
        FractionBox[
         SubscriptBox["l", "o"], "l"]}], ")"}]}], "+", "1"}], ")"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   SubscriptBox["\[Delta]", "o"], "=", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      FractionBox[
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", "\[Tau]w"}], ")"}], "*", "\[Alpha]", "*", "A", "*", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "-", "l"}], ")"}], "\[Alpha]"]}], 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", "l"}], ")"}], "*", 
        RowBox[{"(", 
         RowBox[{"1", "+", "b"}], ")"}], "*", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           FractionBox[
            RowBox[{
             RowBox[{"(", 
              RowBox[{"1", "-", "\[Tau]w"}], ")"}], "*", "\[Alpha]", "*", "A",
              "*", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{"1", "-", "l"}], ")"}], 
              RowBox[{"\[Alpha]", "-", "1"}]]}], 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"1", "+", "b"}], ")"}], "*", 
             RowBox[{"(", 
              RowBox[{"1", "-", "l"}], ")"}]}]], "*", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1"}], "+", 
             RowBox[{"l", "*", 
              RowBox[{"(", 
               RowBox[{"1", "+", 
                FractionBox["1", "\[Eta]"]}], ")"}]}]}], ")"}]}], "-", 
          "\[Mu]"}], ")"}]}]], "*", 
      RowBox[{"(", 
       RowBox[{"1", "-", 
        FractionBox[
         SubscriptBox["l", "o"], "l"]}], ")"}]}], "+", "1"}], ")"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  SubscriptBox["s\[Omega]", "o"], "=", 
  FractionBox[
   SubscriptBox["\[Delta]", "o"], 
   SubscriptBox["\[Delta]", "o"]]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   SubscriptBox["\[Theta]", "o"], "=", 
   FractionBox[
    RowBox[{
     RowBox[{"(", 
      RowBox[{"1", "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           FractionBox["1", 
            SubscriptBox["\[Delta]", "o"]], 
           RowBox[{"(", 
            RowBox[{"1", "-", 
             FractionBox["\[Eta]", 
              RowBox[{"l", "*", 
               RowBox[{"(", 
                RowBox[{"1", "+", "\[Eta]"}], ")"}]}]]}], ")"}]}], "-", "1"}],
          ")"}], "*", "l"}]}], ")"}], "*", 
     RowBox[{"(", 
      RowBox[{"1", "-", "\[Tau]w"}], ")"}], "*", 
     RowBox[{"(", 
      RowBox[{"\[Alpha]", "*", "A", "*", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1", "-", 
          SubscriptBox["l", "o"]}], ")"}], 
        RowBox[{"\[Alpha]", "-", "1"}]]}], ")"}]}], 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", "-", "\[Tau]r"}], ")"}], "*", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"A", "*", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"1", "-", 
            SubscriptBox["l", "o"]}], ")"}], "\[Alpha]"]}], "-", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "-", 
           SubscriptBox["l", "o"]}], ")"}], 
         RowBox[{"(", 
          RowBox[{"\[Alpha]", "*", "A", "*", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"1", "-", 
              SubscriptBox["l", "o"]}], ")"}], 
            RowBox[{"\[Alpha]", "-", "1"}]]}], ")"}]}]}], ")"}], "*", 
      RowBox[{"(", 
       RowBox[{"1", "+", 
        SubscriptBox["b", "o"]}], ")"}]}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", "-", "\[Tau]w"}], ")"}], "*", 
      RowBox[{"(", 
       RowBox[{"1", "-", 
        SubscriptBox["l", "o"]}], ")"}], "*", "\[Alpha]", "*", "A", "*", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1", "-", 
         SubscriptBox["l", "o"]}], ")"}], 
       RowBox[{"\[Alpha]", "-", "1"}]]}]}]]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  SubscriptBox["sy", "o"], "=", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"1", "-", 
     SubscriptBox["\[Theta]", "o"]}], ")"}], 
   SubscriptBox["s\[Omega]", "o"]}]}]}], "Input",
 CellChangeTimes->{3.880685548082053*^9, 3.880686178512601*^9},
 CellLabel->
  "In[286]:=",ExpressionUUID->"a4904bef-5931-485c-8a56-618d08889284"],

Cell[BoxData["0.29694794658757795`"], "Output",
 CellChangeTimes->{3.880629865852517*^9, 3.880686631210708*^9},
 CellLabel->
  "Out[286]=",ExpressionUUID->"a32fb271-fe60-435c-9fbf-cc17c61ccfb5"],

Cell[BoxData["1.3302649602074792`"], "Output",
 CellChangeTimes->{3.880629865852517*^9, 3.880686631210708*^9},
 CellLabel->
  "Out[287]=",ExpressionUUID->"82d7f243-d231-4798-bdab-742c63671718"],

Cell[BoxData["1.`"], "Output",
 CellChangeTimes->{3.880629865852517*^9, 3.8806866312263045`*^9},
 CellLabel->
  "Out[290]=",ExpressionUUID->"b51510b6-3dc0-4c4e-b9c9-f9dfe4ba0fef"],

Cell[BoxData["0.21173604005848357`"], "Output",
 CellChangeTimes->{3.880629865852517*^9, 3.8806866312263045`*^9},
 CellLabel->
  "Out[292]=",ExpressionUUID->"b6bc145c-5d29-4852-9b13-c95ab773877a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"debt", "-", "to", "-", 
    RowBox[{"gdp", " ", "ratio"}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"BbyY", "=", 
    FractionBox["b", 
     RowBox[{"A", "*", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1", "-", "l"}], ")"}], "\[Alpha]"]}]]}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     SubscriptBox["\[Delta]", "o"], "=", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        FractionBox[
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1", "-", "\[Tau]w"}], ")"}], "*", "\[Alpha]", "*", "A", 
          "*", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"1", "-", "l"}], ")"}], "\[Alpha]"]}], 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1", "-", "l"}], ")"}], "*", 
          RowBox[{"(", 
           RowBox[{"1", "+", "b"}], ")"}], "*", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             FractionBox[
              RowBox[{
               RowBox[{"(", 
                RowBox[{"1", "-", "\[Tau]w"}], ")"}], "*", "\[Alpha]", "*", 
               "A", "*", 
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{"1", "-", "l"}], ")"}], 
                RowBox[{"\[Alpha]", "-", "1"}]]}], 
              RowBox[{
               RowBox[{"(", 
                RowBox[{"1", "+", "b"}], ")"}], "*", 
               RowBox[{"(", 
                RowBox[{"1", "-", "l"}], ")"}]}]], "*", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", 
               RowBox[{"l", "*", 
                RowBox[{"(", 
                 RowBox[{"1", "+", 
                  FractionBox["1", "\[Eta]"]}], ")"}]}]}], ")"}]}], "-", 
            "\[Mu]"}], ")"}]}]], "*", 
        RowBox[{"(", 
         RowBox[{"1", "-", 
          FractionBox[
           SubscriptBox["l", "o"], "l"]}], ")"}]}], "+", "1"}], ")"}]}], 
    ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"\[Delta]", "=", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        FractionBox[
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1", "-", "\[Tau]w"}], ")"}], "*", "\[Alpha]", "*", "A", 
          "*", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"1", "-", "l"}], ")"}], "\[Alpha]"]}], 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1", "-", "l"}], ")"}], "*", 
          RowBox[{"(", 
           RowBox[{"1", "+", "b"}], ")"}], "*", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             FractionBox[
              RowBox[{
               RowBox[{"(", 
                RowBox[{"1", "-", "\[Tau]w"}], ")"}], "*", "\[Alpha]", "*", 
               "A", "*", 
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{"1", "-", "l"}], ")"}], 
                RowBox[{"\[Alpha]", "-", "1"}]]}], 
              RowBox[{
               RowBox[{"(", 
                RowBox[{"1", "+", "b"}], ")"}], "*", 
               RowBox[{"(", 
                RowBox[{"1", "-", "l"}], ")"}]}]], "*", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", 
               RowBox[{"l", "*", 
                RowBox[{"(", 
                 RowBox[{"1", "+", 
                  FractionBox["1", "\[Eta]"]}], ")"}]}]}], ")"}]}], "-", 
            "\[Mu]"}], ")"}]}]], "*", 
        RowBox[{"(", 
         RowBox[{"1", "-", 
          FractionBox["l", "l"]}], ")"}]}], "+", "1"}], ")"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{"wealth", " ", "inequality"}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{"s\[Omega]", "=", 
    RowBox[{
     FractionBox["\[Delta]", 
      SubscriptBox["\[Delta]", "o"]], "*", "1"}]}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"\[Theta]", "=", 
     FractionBox[
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             FractionBox["1", "\[Delta]"], 
             RowBox[{"(", 
              RowBox[{"1", "-", 
               FractionBox["\[Eta]", 
                RowBox[{"l", "*", 
                 RowBox[{"(", 
                  RowBox[{"1", "+", "\[Eta]"}], ")"}]}]]}], ")"}]}], "-", 
            "1"}], ")"}], "*", "l"}]}], ")"}], "*", 
       RowBox[{"(", 
        RowBox[{"1", "-", "\[Tau]w"}], ")"}], "*", 
       RowBox[{"(", 
        RowBox[{"\[Alpha]", "*", "A", "*", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"1", "-", "l"}], ")"}], 
          RowBox[{"\[Alpha]", "-", "1"}]]}], ")"}]}], 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", "\[Tau]r"}], ")"}], "*", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"A", "*", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"1", "-", "l"}], ")"}], "\[Alpha]"]}], "-", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "l"}], ")"}], 
           RowBox[{"(", 
            RowBox[{"\[Alpha]", "*", "A", "*", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{"1", "-", "l"}], ")"}], 
              RowBox[{"\[Alpha]", "-", "1"}]]}], ")"}]}]}], ")"}], "*", 
        RowBox[{"(", 
         RowBox[{"1", "+", "b"}], ")"}]}], "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", "\[Tau]w"}], ")"}], "*", 
        RowBox[{"(", 
         RowBox[{"1", "-", "l"}], ")"}], "*", "\[Alpha]", "*", "A", "*", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "-", "l"}], ")"}], 
         RowBox[{"\[Alpha]", "-", "1"}]]}]}]]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{"income", " ", "inequality"}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{"sy", "=", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"1", "-", "\[Theta]"}], ")"}], "s\[Omega]"}]}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{"growth", " ", "rate"}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{"\[Psi]", "=", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"A", "*", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"1", "-", "l"}], ")"}], "\[Alpha]"]}], "-", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "-", "l"}], ")"}], "*", "\[Alpha]", "*", "A", "*", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"1", "-", "l"}], ")"}], 
          RowBox[{"\[Alpha]", "-", "1"}]]}]}], ")"}], "*", 
      RowBox[{"(", 
       RowBox[{"1", "-", "\[Tau]r"}], ")"}]}], "+", 
     RowBox[{"\[Beta]", "*", "b"}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", "-", "\[Tau]w"}], ")"}], "*", "\[Alpha]", "*", "A", "*", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1", "-", "l"}], ")"}], 
       RowBox[{"\[Alpha]", "-", "1"}]], "*", 
      RowBox[{"(", 
       RowBox[{"1", "-", "l", "-", 
        FractionBox["l", "\[Eta]"]}], ")"}]}], "+", 
     RowBox[{"\[Phi]", "*", "A", "*", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1", "-", "l"}], ")"}], "\[Alpha]"]}]}]}]}]}]], "Input",
 CellChangeTimes->{3.88068560241827*^9, 3.880686359981105*^9},
 CellLabel->
  "In[293]:=",ExpressionUUID->"9c28164f-b222-4052-b5db-d9e429933123"],

Cell[BoxData["1.0073186783030683`"], "Output",
 CellChangeTimes->{3.8806298710304594`*^9, 3.880686634717909*^9},
 CellLabel->
  "Out[293]=",ExpressionUUID->"ffa5dda9-7641-4f43-aa89-ee77898cc7a3"],

Cell[BoxData["1.006538461266953`"], "Output",
 CellChangeTimes->{3.8806298710304594`*^9, 3.880686634737151*^9},
 CellLabel->
  "Out[296]=",ExpressionUUID->"2cc9ac16-8ad6-4c88-ae04-8a22de1563dc"],

Cell[BoxData["0.23181877691406474`"], "Output",
 CellChangeTimes->{3.8806298710304594`*^9, 3.8806866347442827`*^9},
 CellLabel->
  "Out[298]=",ExpressionUUID->"b694dddb-b899-4830-9a09-07b5dfb2db58"],

Cell[BoxData["0.021390350952060044`"], "Output",
 CellChangeTimes->{3.8806298710304594`*^9, 3.8806866347442827`*^9},
 CellLabel->
  "Out[299]=",ExpressionUUID->"f0a2ad46-9b13-4963-b442-50c71d9e8b5c"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"ClearAll", "[", 
  RowBox[{"l", ",", "b", ",", "\[Mu]"}], "]"}]], "Input",
 CellChangeTimes->{{3.880629875011881*^9, 3.8806298765354447`*^9}},
 CellLabel->
  "In[306]:=",ExpressionUUID->"59bede06-8252-4238-852b-a3ec3f8afd49"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "increasing", " ", "\[Beta]", " ", "from", " ", "0.586", " ", "to", " ", 
    "0.786"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"A", "=", "0.7"}], ";", 
    RowBox[{"\[Alpha]", "=", "0.6"}], ";", 
    RowBox[{"\[Rho]", "=", "0.04"}], ";", 
    RowBox[{"\[Gamma]", "=", 
     RowBox[{"-", "2"}]}], ";", 
    RowBox[{"\[Eta]", "=", "1.75"}], ";", 
    RowBox[{"\[Tau]w", "=", "0.15"}], ";", 
    RowBox[{"\[Tau]r", "=", "0.15"}], ";", 
    RowBox[{"\[Beta]", "=", "0.786"}], ";", 
    RowBox[{"\[Phi]", "=", 
     RowBox[{"-", "0.658"}]}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     SubscriptBox["a", "o"], "=", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        FractionBox[
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "\[Tau]r"}], ")"}], "*", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"A", "*", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{"1", "-", "l"}], ")"}], "\[Alpha]"]}], "-", 
             RowBox[{"A", "*", "\[Alpha]", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{"1", "-", "l"}], ")"}], "\[Alpha]"]}]}], ")"}]}], "-",
           "\[Rho]"}], 
         RowBox[{"1", "-", "\[Gamma]"}]], "-", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "-", "\[Tau]r"}], ")"}], "*", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"A", "*", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"1", "-", "l"}], ")"}], "\[Alpha]"]}], "-", 
           RowBox[{"A", "*", "\[Alpha]", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"1", "-", "l"}], ")"}], "\[Alpha]"]}]}], ")"}]}], "-", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "-", "\[Tau]w"}], ")"}], "*", "A", "*", "\[Alpha]", 
         "*", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"1", "-", "l"}], ")"}], 
          RowBox[{"\[Alpha]", "-", "1"}]], "*", 
         RowBox[{"(", 
          RowBox[{"1", "-", "l", "-", 
           FractionBox["l", "\[Eta]"]}], ")"}]}], "-", 
        RowBox[{"\[Beta]", "*", "b"}], "-", 
        RowBox[{"\[Phi]", "*", "A", "*", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"1", "-", "l"}], ")"}], "\[Alpha]"]}]}], ")"}], "/", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", 
         FractionBox[
          RowBox[{
           RowBox[{"(", 
            RowBox[{"\[Alpha]", "-", "1"}], ")"}], "*", "\[Alpha]", "*", "A", 
           "*", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"1", "-", "l"}], ")"}], 
            RowBox[{"\[Alpha]", "-", "2"}]]}], 
          RowBox[{"\[Alpha]", "*", "A", "*", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"1", "-", "l"}], ")"}], 
            RowBox[{"\[Alpha]", "-", "1"}]]}]]}], "+", 
        RowBox[{
         FractionBox[
          RowBox[{"1", "-", 
           RowBox[{"\[Gamma]", "*", 
            RowBox[{"(", 
             RowBox[{"1", "+", "\[Eta]"}], ")"}]}]}], 
          RowBox[{"1", "-", "\[Gamma]"}]], "*", 
         FractionBox["1", "l"]}]}], ")"}]}]}], ";", 
    RowBox[{
     SubscriptBox["a", "oo"], "=", 
     RowBox[{
      RowBox[{
       RowBox[{"-", 
        RowBox[{"(", 
         RowBox[{"1", "-", "\[Tau]w"}], ")"}]}], "*", "\[Alpha]", "*", "A", 
       "*", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1", "-", "l"}], ")"}], "\[Alpha]"], 
       RowBox[{"(", 
        RowBox[{"1", "-", 
         FractionBox["l", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "l"}], ")"}], "*", "\[Eta]"}]]}], ")"}], "*", 
       "b"}], "-", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "+", "b"}], ")"}], "*", "\[Beta]", "*", "b"}], "-", 
      RowBox[{"\[Phi]", "*", 
       RowBox[{"(", 
        RowBox[{"1", "+", "b"}], ")"}], "A", "*", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1", "-", "l"}], ")"}], "\[Alpha]"]}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"NSolve", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        SubscriptBox["a", "o"], "==", "0"}], ",", 
       RowBox[{
        SubscriptBox["a", "oo"], "==", "0"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"l", ",", "b"}], "}"}]}], "]"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"a11", "=", 
     RowBox[{"D", "[", 
      RowBox[{
       SubscriptBox["a", "o"], ",", "l"}], "]"}]}], ";", 
    RowBox[{"a12", "=", 
     RowBox[{"D", "[", 
      RowBox[{
       SubscriptBox["a", "o"], ",", "b"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"a21", "=", 
     RowBox[{"D", "[", 
      RowBox[{
       SubscriptBox["a", "oo"], ",", "l"}], "]"}]}], ";", 
    RowBox[{"a22", "=", 
     RowBox[{"D", "[", 
      RowBox[{
       SubscriptBox["a", "oo"], ",", "b"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]"}]}]], "Input",
 CellChangeTimes->{
  3.850968487373212*^9, {3.8509730273653374`*^9, 3.850973028193243*^9}, {
   3.8512030513152027`*^9, 3.8512030563104744`*^9}, {3.8512030960471067`*^9, 
   3.851203119031258*^9}, {3.851206669409748*^9, 3.851206671716913*^9}, 
   3.860097693821954*^9, {3.8654833837488704`*^9, 3.8654833925078354`*^9}, 
   3.8702382753448043`*^9, {3.878974279587899*^9, 3.878974301856958*^9}, {
   3.879675943993187*^9, 3.8796759447370415`*^9}, {3.8796761785136137`*^9, 
   3.8796761799133396`*^9}, {3.8796762840512886`*^9, 3.879676284193225*^9}, 
   3.8806286162691913`*^9},
 CellLabel->
  "In[307]:=",ExpressionUUID->"d1f845dd-3879-4dd6-87a1-f3911ba72753"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"l", "\[Rule]", 
      RowBox[{"-", "77.75058192854401`"}]}], ",", 
     RowBox[{"b", "\[Rule]", 
      RowBox[{"-", "4.497982717886135`"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"l", "\[Rule]", "0.7463986523240037`"}], ",", 
     RowBox[{"b", "\[Rule]", "0.28764362075994837`"}]}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.850968490221306*^9, 3.850973031502599*^9, 3.8511963137514644`*^9, 
   3.851203123516703*^9, {3.851206679563552*^9, 3.8512066989668317`*^9}, 
   3.8600977368972898`*^9, 3.8654833990132704`*^9, 3.8702382786190243`*^9, 
   3.8740742755644712`*^9, 3.8749800130380917`*^9, 3.87897437255015*^9, 
   3.879675948347324*^9, 3.8796762163563147`*^9, 3.8796763084714317`*^9, 
   3.880629884648734*^9, 3.880686666527625*^9, 3.8806867299429398`*^9},
 CellLabel->
  "Out[309]=",ExpressionUUID->"2af5cfcc-9b44-4c80-a777-99c38fc3246d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"l", "=", "0.7463986523240037"}], ";", 
  RowBox[{"b", "=", "0.28764362075994837"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a11", "-", "\[Mu]"}], ")"}], "*", 
      RowBox[{"(", 
       RowBox[{"a22", "-", "\[Mu]"}], ")"}]}], "-", 
     RowBox[{"a12", "*", "a21"}]}], "==", "0"}], ",", "\[Mu]"}], 
  "]"}]}], "Input",
 CellChangeTimes->{{3.8806298968247805`*^9, 3.8806299072593594`*^9}},
 CellLabel->
  "In[312]:=",ExpressionUUID->"3b69cdd7-49ce-482c-bf58-d94b9e55d241"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"\[Mu]", "\[Rule]", 
     RowBox[{"-", "0.972790312143089`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\[Mu]", "\[Rule]", "0.22809253391517273`"}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.880629909951468*^9, 3.8806867322023954`*^9},
 CellLabel->
  "Out[313]=",ExpressionUUID->"d5551248-a443-4f6f-b932-b05539463c43"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"\[Mu]", "=", 
   RowBox[{"-", "0.972790312143089`"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   SubscriptBox["b", "o"], "=", "0.39501944835101704"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"bt", "=", 
   RowBox[{"b", "+", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       SubscriptBox["b", "o"], "-", "b"}], ")"}], "*", 
     RowBox[{"Exp", "[", 
      RowBox[{"\[Mu]", "*", "t"}], "]"}]}]}]}], ";", 
  RowBox[{
   SubscriptBox["b", "o"], "=", 
   RowBox[{"bt", "/.", 
    RowBox[{"t", "->", "0"}]}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"lt", "=", 
   RowBox[{"l", "+", 
    RowBox[{
     FractionBox["a12", 
      RowBox[{"\[Mu]", "-", "a11"}]], "*", 
     RowBox[{"(", 
      RowBox[{"bt", "-", "b"}], ")"}]}]}]}], ";", 
  RowBox[{
   SubscriptBox["l", "o"], "=", 
   RowBox[{"lt", "/.", 
    RowBox[{"t", "->", "0"}]}]}]}]}], "Input",
 CellChangeTimes->{
  3.8806295398242054`*^9, 3.8806299194242887`*^9, {3.8806851620257273`*^9, 
   3.8806851636191835`*^9}},
 CellLabel->
  "In[314]:=",ExpressionUUID->"762f4e9b-a3d2-43bf-93bb-1b9bd250dece"],

Cell[BoxData["0.39501944835101704`"], "Output",
 CellChangeTimes->{3.8806299244179435`*^9, 3.8806867345783834`*^9},
 CellLabel->
  "Out[316]=",ExpressionUUID->"86b8c2d7-0be7-4003-874b-124c6af2ce3a"],

Cell[BoxData["0.7626779908868242`"], "Output",
 CellChangeTimes->{3.8806299244179435`*^9, 3.8806867345940275`*^9},
 CellLabel->
  "Out[317]=",ExpressionUUID->"68a1b95b-822f-4e36-96ec-083f6e7094e7"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  SubscriptBox["y", "o"], "=", 
  RowBox[{"A", "*", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "-", 
      SubscriptBox["l", "o"]}], ")"}], "\[Alpha]"]}]}], "\[IndentingNewLine]", 
 RowBox[{
  SubscriptBox["BbyY", "o"], "=", 
  FractionBox[
   SubscriptBox["b", "o"], 
   RowBox[{"A", "*", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "-", 
       SubscriptBox["l", "o"]}], ")"}], 
     "\[Alpha]"]}]]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   SubscriptBox["\[Delta]", "o"], "=", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      FractionBox[
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", "\[Tau]w"}], ")"}], "*", "\[Alpha]", "*", "A", "*", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "-", "l"}], ")"}], "\[Alpha]"]}], 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", "l"}], ")"}], "*", 
        RowBox[{"(", 
         RowBox[{"1", "+", "b"}], ")"}], "*", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           FractionBox[
            RowBox[{
             RowBox[{"(", 
              RowBox[{"1", "-", "\[Tau]w"}], ")"}], "*", "\[Alpha]", "*", "A",
              "*", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{"1", "-", "l"}], ")"}], 
              RowBox[{"\[Alpha]", "-", "1"}]]}], 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"1", "+", "b"}], ")"}], "*", 
             RowBox[{"(", 
              RowBox[{"1", "-", "l"}], ")"}]}]], "*", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1"}], "+", 
             RowBox[{"l", "*", 
              RowBox[{"(", 
               RowBox[{"1", "+", 
                FractionBox["1", "\[Eta]"]}], ")"}]}]}], ")"}]}], "-", 
          "\[Mu]"}], ")"}]}]], "*", 
      RowBox[{"(", 
       RowBox[{"1", "-", 
        FractionBox[
         SubscriptBox["l", "o"], "l"]}], ")"}]}], "+", "1"}], ")"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   SubscriptBox["\[Delta]", "o"], "=", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      FractionBox[
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", "\[Tau]w"}], ")"}], "*", "\[Alpha]", "*", "A", "*", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "-", "l"}], ")"}], "\[Alpha]"]}], 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", "l"}], ")"}], "*", 
        RowBox[{"(", 
         RowBox[{"1", "+", "b"}], ")"}], "*", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           FractionBox[
            RowBox[{
             RowBox[{"(", 
              RowBox[{"1", "-", "\[Tau]w"}], ")"}], "*", "\[Alpha]", "*", "A",
              "*", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{"1", "-", "l"}], ")"}], 
              RowBox[{"\[Alpha]", "-", "1"}]]}], 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"1", "+", "b"}], ")"}], "*", 
             RowBox[{"(", 
              RowBox[{"1", "-", "l"}], ")"}]}]], "*", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1"}], "+", 
             RowBox[{"l", "*", 
              RowBox[{"(", 
               RowBox[{"1", "+", 
                FractionBox["1", "\[Eta]"]}], ")"}]}]}], ")"}]}], "-", 
          "\[Mu]"}], ")"}]}]], "*", 
      RowBox[{"(", 
       RowBox[{"1", "-", 
        FractionBox[
         SubscriptBox["l", "o"], "l"]}], ")"}]}], "+", "1"}], ")"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  SubscriptBox["s\[Omega]", "o"], "=", 
  FractionBox[
   SubscriptBox["\[Delta]", "o"], 
   SubscriptBox["\[Delta]", "o"]]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   SubscriptBox["\[Theta]", "o"], "=", 
   FractionBox[
    RowBox[{
     RowBox[{"(", 
      RowBox[{"1", "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           FractionBox["1", 
            SubscriptBox["\[Delta]", "o"]], 
           RowBox[{"(", 
            RowBox[{"1", "-", 
             FractionBox["\[Eta]", 
              RowBox[{"l", "*", 
               RowBox[{"(", 
                RowBox[{"1", "+", "\[Eta]"}], ")"}]}]]}], ")"}]}], "-", "1"}],
          ")"}], "*", "l"}]}], ")"}], "*", 
     RowBox[{"(", 
      RowBox[{"1", "-", "\[Tau]w"}], ")"}], "*", 
     RowBox[{"(", 
      RowBox[{"\[Alpha]", "*", "A", "*", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1", "-", 
          SubscriptBox["l", "o"]}], ")"}], 
        RowBox[{"\[Alpha]", "-", "1"}]]}], ")"}]}], 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", "-", "\[Tau]r"}], ")"}], "*", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"A", "*", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"1", "-", 
            SubscriptBox["l", "o"]}], ")"}], "\[Alpha]"]}], "-", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "-", 
           SubscriptBox["l", "o"]}], ")"}], 
         RowBox[{"(", 
          RowBox[{"\[Alpha]", "*", "A", "*", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"1", "-", 
              SubscriptBox["l", "o"]}], ")"}], 
            RowBox[{"\[Alpha]", "-", "1"}]]}], ")"}]}]}], ")"}], "*", 
      RowBox[{"(", 
       RowBox[{"1", "+", 
        SubscriptBox["b", "o"]}], ")"}]}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", "-", "\[Tau]w"}], ")"}], "*", 
      RowBox[{"(", 
       RowBox[{"1", "-", 
        SubscriptBox["l", "o"]}], ")"}], "*", "\[Alpha]", "*", "A", "*", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1", "-", 
         SubscriptBox["l", "o"]}], ")"}], 
       RowBox[{"\[Alpha]", "-", "1"}]]}]}]]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  SubscriptBox["sy", "o"], "=", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"1", "-", 
     SubscriptBox["\[Theta]", "o"]}], ")"}], 
   SubscriptBox["s\[Omega]", "o"]}]}]}], "Input",
 CellChangeTimes->{3.8806855550960197`*^9, 3.880686186138877*^9},
 CellLabel->
  "In[318]:=",ExpressionUUID->"1c53fcbf-ab15-4fa7-9f65-75a11be746e6"],

Cell[BoxData["0.29532543328236677`"], "Output",
 CellChangeTimes->{3.880629943261609*^9, 3.8806867373022356`*^9},
 CellLabel->
  "Out[318]=",ExpressionUUID->"201a0408-f33f-43b0-9a13-9a89a69138e2"],

Cell[BoxData["1.3375734150649015`"], "Output",
 CellChangeTimes->{3.880629943261609*^9, 3.8806867373022356`*^9},
 CellLabel->
  "Out[319]=",ExpressionUUID->"0c913c73-4aaf-4f4e-9b8f-d26a568c67b9"],

Cell[BoxData["1.`"], "Output",
 CellChangeTimes->{3.880629943261609*^9, 3.8806867373022356`*^9},
 CellLabel->
  "Out[322]=",ExpressionUUID->"4be9918f-d39c-4f00-b406-c19059d80228"],

Cell[BoxData["0.20414390925164516`"], "Output",
 CellChangeTimes->{3.880629943261609*^9, 3.8806867373178825`*^9},
 CellLabel->
  "Out[324]=",ExpressionUUID->"1967db03-c3cb-4798-a5e6-55e97d02476b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"debt", "-", "to", "-", 
    RowBox[{"gdp", " ", "ratio"}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"BbyY", "=", 
    FractionBox["b", 
     RowBox[{"A", "*", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1", "-", "l"}], ")"}], "\[Alpha]"]}]]}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     SubscriptBox["\[Delta]", "o"], "=", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        FractionBox[
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1", "-", "\[Tau]w"}], ")"}], "*", "\[Alpha]", "*", "A", 
          "*", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"1", "-", "l"}], ")"}], "\[Alpha]"]}], 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1", "-", "l"}], ")"}], "*", 
          RowBox[{"(", 
           RowBox[{"1", "+", "b"}], ")"}], "*", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             FractionBox[
              RowBox[{
               RowBox[{"(", 
                RowBox[{"1", "-", "\[Tau]w"}], ")"}], "*", "\[Alpha]", "*", 
               "A", "*", 
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{"1", "-", "l"}], ")"}], 
                RowBox[{"\[Alpha]", "-", "1"}]]}], 
              RowBox[{
               RowBox[{"(", 
                RowBox[{"1", "+", "b"}], ")"}], "*", 
               RowBox[{"(", 
                RowBox[{"1", "-", "l"}], ")"}]}]], "*", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", 
               RowBox[{"l", "*", 
                RowBox[{"(", 
                 RowBox[{"1", "+", 
                  FractionBox["1", "\[Eta]"]}], ")"}]}]}], ")"}]}], "-", 
            "\[Mu]"}], ")"}]}]], "*", 
        RowBox[{"(", 
         RowBox[{"1", "-", 
          FractionBox[
           SubscriptBox["l", "o"], "l"]}], ")"}]}], "+", "1"}], ")"}]}], 
    ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"\[Delta]", "=", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        FractionBox[
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1", "-", "\[Tau]w"}], ")"}], "*", "\[Alpha]", "*", "A", 
          "*", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"1", "-", "l"}], ")"}], "\[Alpha]"]}], 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1", "-", "l"}], ")"}], "*", 
          RowBox[{"(", 
           RowBox[{"1", "+", "b"}], ")"}], "*", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             FractionBox[
              RowBox[{
               RowBox[{"(", 
                RowBox[{"1", "-", "\[Tau]w"}], ")"}], "*", "\[Alpha]", "*", 
               "A", "*", 
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{"1", "-", "l"}], ")"}], 
                RowBox[{"\[Alpha]", "-", "1"}]]}], 
              RowBox[{
               RowBox[{"(", 
                RowBox[{"1", "+", "b"}], ")"}], "*", 
               RowBox[{"(", 
                RowBox[{"1", "-", "l"}], ")"}]}]], "*", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", 
               RowBox[{"l", "*", 
                RowBox[{"(", 
                 RowBox[{"1", "+", 
                  FractionBox["1", "\[Eta]"]}], ")"}]}]}], ")"}]}], "-", 
            "\[Mu]"}], ")"}]}]], "*", 
        RowBox[{"(", 
         RowBox[{"1", "-", 
          FractionBox["l", "l"]}], ")"}]}], "+", "1"}], ")"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{"wealth", " ", "inequality"}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{"s\[Omega]", "=", 
    RowBox[{
     FractionBox["\[Delta]", 
      SubscriptBox["\[Delta]", "o"]], "*", "1"}]}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"\[Theta]", "=", 
     FractionBox[
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             FractionBox["1", "\[Delta]"], 
             RowBox[{"(", 
              RowBox[{"1", "-", 
               FractionBox["\[Eta]", 
                RowBox[{"l", "*", 
                 RowBox[{"(", 
                  RowBox[{"1", "+", "\[Eta]"}], ")"}]}]]}], ")"}]}], "-", 
            "1"}], ")"}], "*", "l"}]}], ")"}], "*", 
       RowBox[{"(", 
        RowBox[{"1", "-", "\[Tau]w"}], ")"}], "*", 
       RowBox[{"(", 
        RowBox[{"\[Alpha]", "*", "A", "*", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"1", "-", "l"}], ")"}], 
          RowBox[{"\[Alpha]", "-", "1"}]]}], ")"}]}], 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", "\[Tau]r"}], ")"}], "*", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"A", "*", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"1", "-", "l"}], ")"}], "\[Alpha]"]}], "-", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "l"}], ")"}], 
           RowBox[{"(", 
            RowBox[{"\[Alpha]", "*", "A", "*", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{"1", "-", "l"}], ")"}], 
              RowBox[{"\[Alpha]", "-", "1"}]]}], ")"}]}]}], ")"}], "*", 
        RowBox[{"(", 
         RowBox[{"1", "+", "b"}], ")"}]}], "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", "\[Tau]w"}], ")"}], "*", 
        RowBox[{"(", 
         RowBox[{"1", "-", "l"}], ")"}], "*", "\[Alpha]", "*", "A", "*", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "-", "l"}], ")"}], 
         RowBox[{"\[Alpha]", "-", "1"}]]}]}]]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{"income", " ", "inequality"}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{"sy", "=", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"1", "-", "\[Theta]"}], ")"}], "s\[Omega]"}]}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{"growth", " ", "rate"}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{"\[Psi]", "=", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"A", "*", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"1", "-", "l"}], ")"}], "\[Alpha]"]}], "-", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "-", "l"}], ")"}], "*", "\[Alpha]", "*", "A", "*", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"1", "-", "l"}], ")"}], 
          RowBox[{"\[Alpha]", "-", "1"}]]}]}], ")"}], "*", 
      RowBox[{"(", 
       RowBox[{"1", "-", "\[Tau]r"}], ")"}]}], "+", 
     RowBox[{"\[Beta]", "*", "b"}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", "-", "\[Tau]w"}], ")"}], "*", "\[Alpha]", "*", "A", "*", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1", "-", "l"}], ")"}], 
       RowBox[{"\[Alpha]", "-", "1"}]], "*", 
      RowBox[{"(", 
       RowBox[{"1", "-", "l", "-", 
        FractionBox["l", "\[Eta]"]}], ")"}]}], "+", 
     RowBox[{"\[Phi]", "*", "A", "*", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1", "-", "l"}], ")"}], "\[Alpha]"]}]}]}]}]}]], "Input",
 CellChangeTimes->{3.8806856092760563`*^9, 3.880686365592246*^9},
 CellLabel->
  "In[325]:=",ExpressionUUID->"5b1caa2d-6df9-4a27-a4ad-a0829a185b99"],

Cell[BoxData["0.9359782839157744`"], "Output",
 CellChangeTimes->{3.88062994719437*^9, 3.8806867463218527`*^9},
 CellLabel->
  "Out[325]=",ExpressionUUID->"f52b98d6-e606-4e07-b234-5934493159b3"],

Cell[BoxData["1.0081176560914262`"], "Output",
 CellChangeTimes->{3.88062994719437*^9, 3.880686746337449*^9},
 CellLabel->
  "Out[328]=",ExpressionUUID->"6d3481bb-fcaf-43f1-bd31-b7cd62ee0ec4"],

Cell[BoxData["0.2302943042461456`"], "Output",
 CellChangeTimes->{3.88062994719437*^9, 3.880686746337449*^9},
 CellLabel->
  "Out[330]=",ExpressionUUID->"79b41b76-6163-46a8-a883-917258a9864f"],

Cell[BoxData["0.02149611828215703`"], "Output",
 CellChangeTimes->{3.88062994719437*^9, 3.880686746337449*^9},
 CellLabel->
  "Out[331]=",ExpressionUUID->"b32dd890-e453-4e01-b17a-6db4bbf6d059"]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{
  3.880628814091976*^9},ExpressionUUID->"f870067b-0b02-4c71-8d9e-\
a75e83568ac6"],

Cell[BoxData["\[IndentingNewLine]"], "Input",
 CellChangeTimes->{{3.865483415409953*^9, 3.8654834251978383`*^9}, 
   3.87023828281654*^9, {3.878974307095099*^9, 3.878974326409932*^9}, {
   3.879675951473782*^9, 3.879675952337924*^9}, {3.879676183986225*^9, 
   3.8796761853227396`*^9}, {3.8796762867456865`*^9, 3.87967628690827*^9}, 
   3.8806286220770097`*^9, 
   3.880628759357868*^9},ExpressionUUID->"0d3eb3f1-3da1-41ea-99ed-\
ee109294002a"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.8806295508110647`*^9, 
  3.880629550814338*^9}},ExpressionUUID->"68d77aa7-8157-4b08-9d72-\
e43a600ad5d1"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{
  3.8806287634845295`*^9},ExpressionUUID->"9c661869-7fdf-4d48-a2f9-\
a0167b4b5884"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{
  3.8806287673888483`*^9},ExpressionUUID->"19296978-9624-4447-ac98-\
606a48a9558e"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{
  3.8806287764284315`*^9},ExpressionUUID->"dbda1551-897d-493d-adfc-\
48fa0739e30a"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.8509730359325485`*^9, 3.850973121180934*^9}, {
   3.8512031314646897`*^9, 3.851203152387846*^9}, {3.8512031916457386`*^9, 
   3.851203208138878*^9}, {3.8533687334798746`*^9, 3.8533687382936354`*^9}, {
   3.8600976511241117`*^9, 3.860097655801039*^9}, 3.8600976991853004`*^9, {
   3.865483456737151*^9, 3.8654834700661144`*^9}, 3.8702382913786397`*^9, {
   3.871269212609692*^9, 3.871269213274268*^9}, {3.871269284585531*^9, 
   3.8712692858104353`*^9}, {3.871269429706725*^9, 3.871269431097473*^9}, {
   3.874046453880088*^9, 3.874046460627493*^9}, {3.8740465166606216`*^9, 
   3.8740465194588685`*^9}, {3.8740465650480423`*^9, 
   3.8740465688538947`*^9}, {3.874074282295892*^9, 3.8740742868260717`*^9}, {
   3.878974332426957*^9, 3.8789743463797092`*^9}, {3.879675959425906*^9, 
   3.8796759600979576`*^9}, {3.879676189778742*^9, 3.8796761910178075`*^9}, {
   3.8796762895389147`*^9, 3.879676289738738*^9}, 3.8806286269715257`*^9, 
   3.8806287711254244`*^9},ExpressionUUID->"df32e701-10b6-467c-8ade-\
616ac20d82a6"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.8806295442835884`*^9, 
  3.8806295442862253`*^9}},ExpressionUUID->"bab4066e-1b36-485f-b424-\
e7bc4607c518"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{
  3.8806287738542614`*^9},ExpressionUUID->"f6efaf35-25a9-4cb4-be94-\
e01158f15eac"]
},
WindowSize->{1428., 741.75},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
PrintingCopies->1,
PrintingPageRange->{Automatic, Automatic},
PrintingOptions->{"Magnification"->1.,
"PaperOrientation"->"Portrait",
"PaperSize"->{595.2755905511812, 841.8897637795276}},
FrontEndVersion->"13.1 for Microsoft Windows (64-bit) (2022\:5e746\:670816\
\:65e5)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"bf05407e-115d-4060-9a62-69de05c975fb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 5534, 161, 296, "Input",ExpressionUUID->"58be4907-e54a-4d08-8cf2-a8f17cb79a47"],
Cell[6117, 185, 1411, 28, 32, "Output",ExpressionUUID->"9eb70cc1-26a2-46fe-9fbd-a2498766c2a1"]
}, Open  ]],
Cell[CellGroupData[{
Cell[7565, 218, 579, 17, 62, "Input",ExpressionUUID->"9bde6c62-3e5a-4974-9e6e-821c18ad664a"],
Cell[8147, 237, 626, 14, 32, "Output",ExpressionUUID->"c07b1176-5327-4085-aece-7eca62739242"]
}, Open  ]],
Cell[CellGroupData[{
Cell[8810, 256, 1175, 37, 122, "Input",ExpressionUUID->"15fe62fc-70c8-4748-82da-d9dd0220d09a"],
Cell[9988, 295, 337, 5, 32, "Output",ExpressionUUID->"d5ab7e4d-f3f0-4161-bea3-f9c7af74fbc6"],
Cell[10328, 302, 338, 5, 32, "Output",ExpressionUUID->"fddb7fdc-97f4-4c17-8c47-be88ab58ea77"]
}, Open  ]],
Cell[CellGroupData[{
Cell[10703, 312, 6340, 197, 337, "Input",ExpressionUUID->"5ad93d10-72a7-4396-a6bf-6f66e7c32deb"],
Cell[17046, 511, 444, 7, 32, "Output",ExpressionUUID->"86015020-7ef7-4e27-942b-1ecb1ff344ef"],
Cell[17493, 520, 448, 7, 32, "Output",ExpressionUUID->"2e1d24e1-81f4-4b15-a065-59b86ffd6a24"],
Cell[17944, 529, 432, 7, 32, "Output",ExpressionUUID->"2cc2c4e4-6d13-4739-ac54-43c44ece08d7"],
Cell[18379, 538, 449, 7, 32, "Output",ExpressionUUID->"41813370-1476-4efb-9767-8ee00efa31aa"]
}, Open  ]],
Cell[CellGroupData[{
Cell[18865, 550, 7447, 217, 452, "Input",ExpressionUUID->"df3d05a8-7cc8-4a87-a1c5-484a23884d1a"],
Cell[26315, 769, 392, 6, 32, "Output",ExpressionUUID->"0c528125-44ad-4ce3-ad84-0048b2b278d8"],
Cell[26710, 777, 374, 6, 32, "Output",ExpressionUUID->"4a567956-781a-4adb-8e2a-d37d216d0cc0"],
Cell[27087, 785, 393, 6, 32, "Output",ExpressionUUID->"355326c2-eedd-4ce0-b683-f60d8d8c06ad"],
Cell[27483, 793, 394, 6, 32, "Output",ExpressionUUID->"2138adcc-a6a0-486e-a2c5-2395436cf754"]
}, Open  ]],
Cell[27892, 802, 245, 5, 43, "Input",ExpressionUUID->"8479ba9a-9ab0-4600-af81-ebd42746ab0b"],
Cell[CellGroupData[{
Cell[28162, 811, 5626, 163, 279, "Input",ExpressionUUID->"d99c22f7-5e29-402e-acfe-8c226318913c"],
Cell[33791, 976, 991, 22, 32, "Output",ExpressionUUID->"70747529-1098-484c-9de7-032cc0600aa2"]
}, Open  ]],
Cell[CellGroupData[{
Cell[34819, 1003, 604, 17, 62, "Input",ExpressionUUID->"9b8f68b6-a6e9-4f95-873f-63f4d14e9c88"],
Cell[35426, 1022, 545, 13, 32, "Output",ExpressionUUID->"9b242154-b0a4-48de-b2b4-b5569288c908"]
}, Open  ]],
Cell[CellGroupData[{
Cell[36008, 1040, 1245, 38, 122, "Input",ExpressionUUID->"b09e4bd4-b7cf-42c3-9103-db61853d7ac7"],
Cell[37256, 1080, 293, 5, 32, "Output",ExpressionUUID->"0baf1ecd-2dd0-4f49-bdf1-8a3f998699b1"],
Cell[37552, 1087, 292, 5, 32, "Output",ExpressionUUID->"a7ff839b-aa74-4618-a751-0e02c24b3c3b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[37881, 1097, 6080, 193, 337, "Input",ExpressionUUID->"c5b48a64-b0ed-4913-bf38-30926df61e9f"],
Cell[43964, 1292, 318, 5, 32, "Output",ExpressionUUID->"87b65668-fdf5-4fe6-a746-2ed100abc47f"],
Cell[44285, 1299, 317, 5, 32, "Output",ExpressionUUID->"12801385-6c2a-45a2-b0f6-3b6ab8c75393"],
Cell[44605, 1306, 301, 5, 32, "Output",ExpressionUUID->"169bee0a-8c1e-42dd-8082-5d55511231a3"],
Cell[44909, 1313, 318, 5, 32, "Output",ExpressionUUID->"4e6af4ca-648e-43eb-a282-181d9385c4da"]
}, Open  ]],
Cell[CellGroupData[{
Cell[45264, 1323, 7294, 215, 433, "Input",ExpressionUUID->"e9e62f2e-a005-4c9c-a5ff-afc677bb701b"],
Cell[52561, 1540, 224, 4, 32, "Output",ExpressionUUID->"6533dad1-5d17-421c-b017-5e810f1e7362"],
Cell[52788, 1546, 222, 4, 32, "Output",ExpressionUUID->"7fbfb416-5319-492f-b79e-ae441c2b049a"],
Cell[53013, 1552, 222, 4, 32, "Output",ExpressionUUID->"c2325e78-eef1-403d-a81f-d76b68e29864"],
Cell[53238, 1558, 226, 4, 32, "Output",ExpressionUUID->"fe1db164-d6fc-4d66-9c4c-c3faffe8161a"]
}, Open  ]],
Cell[53479, 1565, 249, 5, 43, "Input",ExpressionUUID->"a8c7a0a5-7d79-41e5-9b19-eb8da56d29fd"],
Cell[CellGroupData[{
Cell[53753, 1574, 5738, 165, 279, "Input",ExpressionUUID->"99dcde3b-053e-426a-86a7-9a6858ba06b2"],
Cell[59494, 1741, 1013, 23, 32, "Output",ExpressionUUID->"c7195b90-91e6-483b-82a0-06d8b29f4d85"]
}, Open  ]],
Cell[CellGroupData[{
Cell[60544, 1769, 607, 17, 62, "Input",ExpressionUUID->"03ac8cf9-5a2e-49c4-8eb8-f7b50d2e8df3"],
Cell[61154, 1788, 403, 11, 32, "Output",ExpressionUUID->"cd9d42a8-be47-4a72-bc5a-81cb32dd51f9"]
}, Open  ]],
Cell[CellGroupData[{
Cell[61594, 1804, 1126, 36, 122, "Input",ExpressionUUID->"97851466-b264-46de-ab45-30e06fa3d5f4"],
Cell[62723, 1842, 198, 3, 32, "Output",ExpressionUUID->"18358e26-9972-4532-88b1-9d4aa2f66e74"],
Cell[62924, 1847, 197, 3, 32, "Output",ExpressionUUID->"fd2f6550-2b44-4db2-ba63-8f515ddd7cff"]
}, Open  ]],
Cell[CellGroupData[{
Cell[63158, 1855, 6080, 193, 337, "Input",ExpressionUUID->"6f1939e8-04d7-436c-b14a-9ec2196196c7"],
Cell[69241, 2050, 198, 3, 32, "Output",ExpressionUUID->"69241190-ae1f-43c2-835c-d49c53eb5973"],
Cell[69442, 2055, 197, 3, 32, "Output",ExpressionUUID->"e3e695c2-3f77-430d-83ea-9aa46132895a"],
Cell[69642, 2060, 179, 3, 32, "Output",ExpressionUUID->"94f26193-5e8b-4954-93ed-aee694f3e97c"],
Cell[69824, 2065, 198, 3, 32, "Output",ExpressionUUID->"b7322101-55b7-43b6-9c81-a767e7a848af"]
}, Open  ]],
Cell[CellGroupData[{
Cell[70059, 2073, 7296, 215, 433, "Input",ExpressionUUID->"88fde585-24f6-46e3-9a1c-759e70cdc4c6"],
Cell[77358, 2290, 195, 3, 32, "Output",ExpressionUUID->"0c18fb32-6353-4c19-ba73-c5a935560256"],
Cell[77556, 2295, 195, 3, 32, "Output",ExpressionUUID->"a80fa3b2-9e58-4e03-bc6e-6d82016d1701"],
Cell[77754, 2300, 194, 3, 32, "Output",ExpressionUUID->"fcefe4a6-0e20-428d-a711-a8fd8fda4f9c"],
Cell[77951, 2305, 195, 3, 32, "Output",ExpressionUUID->"b1f6b14b-c747-4158-9010-6cde155722ba"]
}, Open  ]],
Cell[78161, 2311, 249, 5, 43, "Input",ExpressionUUID->"2ac55e56-f4ca-4d92-a65e-951f0191e05f"],
Cell[CellGroupData[{
Cell[78435, 2320, 5697, 165, 279, "Input",ExpressionUUID->"83ca7947-98f2-465e-a882-518217a9fcbb"],
Cell[84135, 2487, 924, 21, 32, "Output",ExpressionUUID->"8da8a16e-00d4-41b6-807a-1af792257252"]
}, Open  ]],
Cell[85074, 2511, 128, 3, 28, "Input",ExpressionUUID->"bcc9e81e-7e43-4ecd-bff7-082a02e1d656"],
Cell[CellGroupData[{
Cell[85227, 2518, 607, 17, 62, "Input",ExpressionUUID->"8cbf09a3-e17a-48d4-b4e4-6b9d975488be"],
Cell[85837, 2537, 431, 12, 32, "Output",ExpressionUUID->"18bc93aa-aa65-4745-b7c8-082294ff1350"]
}, Open  ]],
Cell[CellGroupData[{
Cell[86305, 2554, 1144, 37, 122, "Input",ExpressionUUID->"b8159f16-cadc-40c1-b315-e47536d7ec68"],
Cell[87452, 2593, 198, 3, 32, "Output",ExpressionUUID->"fcd9af83-5e3a-46e8-9635-466af127a5ce"],
Cell[87653, 2598, 195, 3, 32, "Output",ExpressionUUID->"25989b83-47f3-4f77-acec-efd727c19452"]
}, Open  ]],
Cell[CellGroupData[{
Cell[87885, 2606, 6078, 193, 337, "Input",ExpressionUUID->"a4904bef-5931-485c-8a56-618d08889284"],
Cell[93966, 2801, 194, 3, 32, "Output",ExpressionUUID->"a32fb271-fe60-435c-9fbf-cc17c61ccfb5"],
Cell[94163, 2806, 193, 3, 32, "Output",ExpressionUUID->"82d7f243-d231-4798-bdab-742c63671718"],
Cell[94359, 2811, 179, 3, 32, "Output",ExpressionUUID->"b51510b6-3dc0-4c4e-b9c9-f9dfe4ba0fef"],
Cell[94541, 2816, 196, 3, 32, "Output",ExpressionUUID->"b6bc145c-5d29-4852-9b13-c95ab773877a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[94774, 2824, 7291, 215, 433, "Input",ExpressionUUID->"9c28164f-b222-4052-b5db-d9e429933123"],
Cell[102068, 3041, 195, 3, 32, "Output",ExpressionUUID->"ffa5dda9-7641-4f43-aa89-ee77898cc7a3"],
Cell[102266, 3046, 194, 3, 32, "Output",ExpressionUUID->"2cc9ac16-8ad6-4c88-ae04-8a22de1563dc"],
Cell[102463, 3051, 198, 3, 32, "Output",ExpressionUUID->"b694dddb-b899-4830-9a09-07b5dfb2db58"],
Cell[102664, 3056, 199, 3, 32, "Output",ExpressionUUID->"f0a2ad46-9b13-4963-b442-50c71d9e8b5c"]
}, Open  ]],
Cell[102878, 3062, 249, 5, 43, "Input",ExpressionUUID->"59bede06-8252-4238-852b-a3ec3f8afd49"],
Cell[CellGroupData[{
Cell[103152, 3071, 5739, 165, 279, "Input",ExpressionUUID->"d1f845dd-3879-4dd6-87a1-f3911ba72753"],
Cell[108894, 3238, 960, 22, 32, "Output",ExpressionUUID->"2af5cfcc-9b44-4c80-a777-99c38fc3246d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[109891, 3265, 607, 17, 62, "Input",ExpressionUUID->"3b69cdd7-49ce-482c-bf58-d94b9e55d241"],
Cell[110501, 3284, 400, 11, 32, "Output",ExpressionUUID->"d5551248-a443-4f6f-b932-b05539463c43"]
}, Open  ]],
Cell[CellGroupData[{
Cell[110938, 3300, 1128, 37, 122, "Input",ExpressionUUID->"762f4e9b-a3d2-43bf-93bb-1b9bd250dece"],
Cell[112069, 3339, 198, 3, 32, "Output",ExpressionUUID->"86b8c2d7-0be7-4003-874b-124c6af2ce3a"],
Cell[112270, 3344, 197, 3, 32, "Output",ExpressionUUID->"68a1b95b-822f-4e36-96ec-083f6e7094e7"]
}, Open  ]],
Cell[CellGroupData[{
Cell[112504, 3352, 6080, 193, 337, "Input",ExpressionUUID->"1c53fcbf-ab15-4fa7-9f65-75a11be746e6"],
Cell[118587, 3547, 196, 3, 32, "Output",ExpressionUUID->"201a0408-f33f-43b0-9a13-9a89a69138e2"],
Cell[118786, 3552, 195, 3, 32, "Output",ExpressionUUID->"0c913c73-4aaf-4f4e-9b8f-d26a568c67b9"],
Cell[118984, 3557, 179, 3, 32, "Output",ExpressionUUID->"4be9918f-d39c-4f00-b406-c19059d80228"],
Cell[119166, 3562, 196, 3, 32, "Output",ExpressionUUID->"1967db03-c3cb-4798-a5e6-55e97d02476b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[119399, 3570, 7294, 215, 433, "Input",ExpressionUUID->"5b1caa2d-6df9-4a27-a4ad-a0829a185b99"],
Cell[126696, 3787, 194, 3, 32, "Output",ExpressionUUID->"f52b98d6-e606-4e07-b234-5934493159b3"],
Cell[126893, 3792, 192, 3, 32, "Output",ExpressionUUID->"6d3481bb-fcaf-43f1-bd31-b7cd62ee0ec4"],
Cell[127088, 3797, 192, 3, 32, "Output",ExpressionUUID->"79b41b76-6163-46a8-a883-917258a9864f"],
Cell[127283, 3802, 193, 3, 32, "Output",ExpressionUUID->"b32dd890-e453-4e01-b17a-6db4bbf6d059"]
}, Open  ]],
Cell[127491, 3808, 128, 3, 28, "Input",ExpressionUUID->"f870067b-0b02-4c71-8d9e-a75e83568ac6"],
Cell[127622, 3813, 444, 7, 48, "Input",ExpressionUUID->"0d3eb3f1-3da1-41ea-99ed-ee109294002a"],
Cell[128069, 3822, 154, 3, 28, "Input",ExpressionUUID->"68d77aa7-8157-4b08-9d72-e43a600ad5d1"],
Cell[128226, 3827, 130, 3, 28, "Input",ExpressionUUID->"9c661869-7fdf-4d48-a2f9-a0167b4b5884"],
Cell[128359, 3832, 130, 3, 28, "Input",ExpressionUUID->"19296978-9624-4447-ac98-606a48a9558e"],
Cell[128492, 3837, 130, 3, 28, "Input",ExpressionUUID->"dbda1551-897d-493d-adfc-48fa0739e30a"],
Cell[128625, 3842, 1067, 15, 28, "Input",ExpressionUUID->"df32e701-10b6-467c-8ade-616ac20d82a6"],
Cell[129695, 3859, 156, 3, 28, "Input",ExpressionUUID->"bab4066e-1b36-485f-b424-e7bc4607c518"],
Cell[129854, 3864, 130, 3, 28, "Input",ExpressionUUID->"f6efaf35-25a9-4cb4-be94-e01158f15eac"]
}
]
*)

